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«REM & 
IDENTIFICATION 
PRODUCT CODE: AC~E648B-M( 
PRODUCT NAME: CZTUUBO TU58 PERF EXER 
PRODUCT DATE: JULY 1979 
MA'NTAINER: DIAGNOSTIC ENGINEERING GROUP 
AUTHOR: R. J. ROSS 


THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT CE CONSTRUtED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY 1S ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE CN EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 
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THIS DIAGNCSTIC EXERCISES FROM 1 TO 8 TUSB CONTROLLER BOARDS, EACH 

OF WHICH MAY SUPPORT 1 OR 2 DRIVES. THE PROGRAM IMPLIMENTS THE 
“MAINTENANCE MODE'’ SWITCH WITHIN 1 PACKET COMMANDS, THUS RETRIEVING 
concen INFORMATION FROM THE DEvICeH UPON CERTAIN DEVICE RECOGNIZED 


STATISTICAL SUMMARIES ARE PROVIDED FOR ALL UNITS TESTED. RETRIES 
ARE PERFORMED ON DATA-RELATED ERROR CONDITIONS. 


USE OF LOOP ON ERROR FLAG (:LOE) IS IMPLEMENTED BUT NOT 
RECOMMENDED FOR USE, SINCE THE LOOPS ARE QUITE LENGTHLY DUE 
TO COMMUNICATIONS PROTOCOL OVERHEAD. 


PROGRAM ABSTRACT 


IN ORDER TO EXERCISE MULTIPLE UNITS IN AN EFFICIENT MANNER, A 

SCHEDULING ALGORITHM BUILDS, THEN SENDS THE NEXT COMMUNICATION 

PACKET (COMMAND OR DATA) FORMULATED BY EXECUTING MACRO CODE WITHIN 

THE TEST ALGORITHMS. THE USE OF MACROS TO IMPLIMENT THE COMMUNICATIONS 
PROTOCOL SIMPLIFIES CUNTEXT SWITCHING FROM UNIT TO UNIT BY NOT 

REQUIRING 8 SEPARATE DEVICE STACKS IN ADDITION TO THE SYSTEM 

STACK. 

THE TESTS ARE PERFORMED USING THE SPECIFIED ALGORITHM ON ALL DRIVE O'S, 

THEN REPEAT THE TEST AFTER SWITCHING DRIVES, IF ANY DRIVE ““I"S'’ WERE SELECTED. 


FOLLOWING THE TRANSMISSION OF 1 PACKET TO EAS H DEVICE (WITH XOFF 
PRECEEDING) THE UNITS ARE POLLED, AND THEIR ENTIRE RESPONSES 
EVALUATED ROUND ROBIN. IF ANY ERROR INITIATES A RETRY, THE SCHED= 
ULING PROCESS IS MODIFIED TO COMMUNICATE WITH ONLY 7 UNIT UNTIL 
COMPLETION OF THE RETRY PROCEDURE. THEN, A RETRY BY ANOTHER UNIT 
MAY PROCEED, OR THE SYSTEM CONTINUES NORMALLY. 


THROUGHOUT THE PROGRAM, R5 POINTS TO ONE OF 8 POSSIBLE DATA 
STRUCTURES CONTAINING STATUS, TES! PARAMETERS, AND STATISTICAL 
INFORMATION FOR THE CURRENT UNIT. ‘‘START’’ CLEARS STATISTICS, 
“RESTART’’ AND ‘CONTINUE’ DO NOT. 


UPON OCCURANCE OF A FATAL ERROR, THAT UNIT 1S DESCHEDULED 
(ABORTED) ALLOWING THE REMAINING (IF ANY) TO PROCEED wlth 
TESTING. 


ERROR DESCRIPTIONS 


AN EXPLANATION OF THE EXTENDED ERROR INFCRMATION FOLLOWS. SEE 
ALSO THE SECTION IN THIS LISTING SUBTITLED “ERROR MESSAGE 
DESCRIPTIONS’. 


BLOCK @: THE RECORD NUMBER (1 PER 512, BYTES) 
IN LAST COMMAND PACK, 


COMMAND : THE MOST RECENT COMMAND PACaET OP ODE, 


ere earns nt a ee a een 


SES 0003 
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SEQ CO04 . 


EXPCTD: THE DATA PATTERN USED ON WRITE COMMAND 
AND FOR DATA COMPARE AFTER READ OP. 
SUCCESS: THE SUCCESS CODE RECEIVED IN END PACKET. 
PAK SENT: TYPE OF PACKET JUST SENT (0 FOR DATA; 
1 FOR COMMAND) 
FLAG RCVD: FLAG BYTE OF PACKET CURRENTLY BEING 


CHECKED, OR 1ST BYTE OF RESPONSE. 


SINCE IN MAINTENANCE MODE TUS8 WILL SEND A BAD DATA PACK WiTH A 

“DATA CHECK’ SUCCES” STATUS IN THE FOLLOWING END PACK, THE HOST 

WILL, UPON CHECKING THOSE DATA PACK(S), DETERMINE “‘BAD DATA’ IN 

PACKET ERROR FIRST, THEN INTERPRET THE SUCCESS CODE TO DIFFERENTIA‘E 

A COMMUNICATIONS GLITCH (GOOD SUCCESS) vS. TU "DATA=CHECK® ERROR CODE. 
THIS WOULD SEEM TO RESULT IN TWO ““ERROR' MESSAGES FOR ONE ERROR 
CONDITION, BUT ONLY THE SECOND ERROR MESSAGE WIii CONTAIN PERTINENT 
(NOT ZERO) ERROR NUMBER. 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE 


PDP-11/LSI-11 CPU WITH AT LEAST 16K WORDS OF MEMORY AND CONSOLE 
DEVICE. 


TUS8 CONTROLLER AND DRIVE(S). OL, DLV, OR PDT COMPATABLE INTER- 
FACE; AND REVISION “'I"' TUS8 MICROCODE (OR LATER) ASSUMED, 


1.2.2 SOFTWARE 


THE PROGRAM IS REVISION C DIAGNOSTIC SUPERVISOR COMPATIBLE. 
CONSULT XXDP* USERS MANUAL FOR OPERATING INSTRUCTIONS. 


1.3 RELATED DOCUMENTS AND STANDARDS 
XXDP* USERS MANUAL CHOUS 
1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


APPROPRIATE INTERFACE DIAGNOSTICS MAY BE RUN TO [SOC ATE INTERFACE 
ERRORS, 


1,5 ASSUMPTIONS 
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SYSTEM HARDWARE GIHER THAN TU58(S) 1S OPERATIONAL. 


OPERATING INSTRUCTIONS 


THE DIAGNOSTIC MAY BE INVOLKED WITH A “START* RESPONSE TO THE 
SUPERVISOR PROMP?. “STA‘'(CR) 1S SUFFICIENT. 

IF THE DEVICE IS NOT AT THE STANDARD ADDRESS AND VECTOR (176500, 
300), THEN ANSWER ““CHANGE Hw?"’ WITH "YES' INITIALLY TO SE! UP 
oe CONFIGURATION TABLES FOR EACH UNIT. THAT INFORMATION 


TU58 CSR . a pg, OF RCSR OF DLV-11 OR OTHER INTERFACE 
0 


VECTOR ADDR. - ADDRESS OF INTERRUPT VECTOR LOCATION. 


PDT (PARALLEL) INTERFACE == IS THE TUS8 IN A PDT 11/130, 
OR SYSTEM WHOSE BUFFERS ARE: 


RCSR 
RCDB (AND XMDAR) 
XMSR 


iEST DRO - YES OR NO 

TEST DRI - YES OR NO =2 

SUBSEQUENT RESPONSES TO “CHANGE HW?" MAY THEN BE "NO". 

THE STANDARD ADDRESS AND VECTOR LOCATIONS FOR THE PDT 11/130 
ARE 177170 AND 260 RESPECTIVELY. 

THE SOFTWARE QUESTIONS ARE AS FOLLOWS: 


NUMBER OF BLOCKS: TEST 4-7 == ONE MAY SELECT A MINIMUM GF 8, 10 
A MAXIMUM OF 512 BLOCKS T0 WRITE, 
READ; WRITE VERIFY; AND READ REDUCED, 
AS EXPLAINED IN SECTION 6.0. 


- FOR THOSE SAME READ AND WRITE TESTS 
4-7, THE DRIVE NUMBER (0 OR 1) MAY 
BE ADDED TO DATA WRITTEN ON TAPE TO 
INSURE DRIVE SELECT BIT OPERATION, 


STATISTICS PRINTED Ai EOP = SELECTS WHETHER OR NOT TO PRINT 
INFORMATION AT END OF PASS OR “C. 
THESE STATISTICS MAY ALSO BE RE- 
TRIEVED WITH THE ‘’PRI'’ COMMAND, 


ADD DR # TO DATA PATTERN 


COMPARE DATA ON READ e- SELECTS WHETHER OR NOT TO DO A 
DATA COMPARE ON DATA PACKETS RE 


SEQ 0005 | 
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SEQ 0006 | 
CEIVED. 


PRINT PACKET ON ERROR -- PRINTS 152. BYTE DATA PACKET ON A COMPARE 
ERROR, JF SELECTED. 


# ERRORS=DvC FATAL IF “EVi® SET == IF USER SETS Evi FLAG (EVALUATE) 
MODE), HRD OR SFT ERROR MESSAGES 
BECOME DvC FIL ERRORS AFTER THE 
NUMBER SPECIFIED IS EXCEEDED. 


3.0 ERROR INFORMATION 


elimi. 1S PROVIDED ON OCCURRANCE OF ERRORS AS OUTLINED IN 


4.0 PERFORMANCE AND PROGRESS REPORTS 


STATISTICS ARE AVAILABLE PER SECTION 1.1 AT END OF PASS, CONTROL-C, OR 
UPON ENTERING A ‘'PRI** COMMAND. THEY CONSIST OF # BLOCKS WRITTEN AND READ, # OF 
DATA ERRORS, HARD OR SOFT. 


5.9 DEVICE INFORMATION TABLCS 


CONSULT SECTION SUBTITLED ‘DATA BLOCK FORMAT’ FURTHER ON IN THIS LISTING. 


6.0 TEST SUMMARIES 


INIT: INJT IS SENT TO DEVICE IF: 


~ 1. INIT CODE IN SUPERVISOR 1S EXECUTED 
2. INIT iS REQUESTED BY DEVICE AS A RESULT OF 
ERROR. 


TEST 1: INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL «SELF TEST) 


TEST 2: SEEK TEST. SEEKS BOT ON BOTH TRACKS,THEN 
VERIFIES 60 IPS OPERATION TO SEEK EOT OR 
ON BOTH TRACKS,ENDING THEN AT BOT. 


TEST 3: PERFORMS WRITE, THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTiL EOT. 


TESTS 47: READS OR WRITES BLOCK # AS DATA INTO SUCCESSIVE BLOCKS 
ON TAPE, THE LENGTH OF WHICH IS DETERMINED BY SOFTWARE 
QUESTION #1: DEFAULT IS SHORT TAPE (8.). MINIMUM, 
(8.) RESULTS IN TRANSFER OF 8. (OR 4 PER TRACK) 512. BYTE 
BLOCKS GF DATA PER READ (OR WRITE) OFLRATION, THE 


ae ar ne ee mee ce enn we en ne rt ne 0 ee ee eens ee eer ne se ee 0 Se Re eG ES SE  S  e Se NN e ee 
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ALGORITHM SWITCHES TRACKS REGARDLESS OF THE NUMBER 
BLOCKS SELECTED. DRIVE NUMBER IS ADDED 10 RECORD 
AS DEFAULT,SO FOR TAPE INTERCHANGE 

TESTING, ANSWER (N) TO SOFTWARE (SW) QUESTION #2. 


NGTE: THE AMOUNT OF TIME SPENT IN TESTS 4-7 IS QUITE 
LONG IF “ME FULL TAPE (512.) IS SELECTED. 


TEST 4: WRITE TAPE 

TEST 5: READ TAPE 

TEST 6: "WRITE VERIFY* TAPE 

TEST 7: READ MODIFIED THRESHOLD TAPE 


& 


ete wn were = 


: 2 SS rs SS se ssn 
SEQ 0007 


a ca en i rn a on rn rence en eR RE TRRER ENE Se Se Se a ne en EE A A ES EE TC A 
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368 -TITLE PROGRAM HEADER AND TABLES 

se -SBTIL PROGRAM HEADER 

397 -ENABL ABS,AMA 

398 002000 ° 2 00 

400 eNLIS'’ BEX 

401 062000 BGNMOD 

402 

403 3+ 

404 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
405 3; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
207 

4 

rr 002000 POINTER BGNRPT,BGNSW,BGNSFT,BGNAU,BGNDU,BGNSE I uP 
4 

417 

418 002000 HEADER (7TUU,B,0,3600.,1 


419 
420 002122 DESCRIP <TUS8& PERF EXER> 


mm ne ee ee eee 


SEQ 0008 





PROT” ..4 HEADER 
PROGRAM HEADER 


428 002142 
429 002142 
430 002144 
431 002146 
432 002150 


AND TABLES 


000000 
177777 
177777 


J 
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“44 
>THE PROTECT TABLE IS USED BY THE MONITOR 10 WARN THE OPERATOR WHEN HE 
sTRIES TO TEST THE LOAD DEVICE. 


BGNPROT 
«WORD 0 DEVICE CSR 
-WORD =] 3NO MASS BUS 
«WORD =1 NO ORIVE 
ENDPROT 





SEQ 0009 





PROGRAM HEADER AND TABLES 
PROGRAM HEAD? 


7 
ren 002150 





if 
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~SBTTL DISPATCH TABLE 


,79 
>; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST, 
; IT iS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 7 


aoe nee Hs eee ee 


a ee a 


SEQ 0010 


ee | 


466 002170 


468 002172 
469 002174 
470 002176 
net 002200 


478 
479 002202 





PROGRAM HEADER AND TABLES 
DEFAULT HARDWARE P-TABLE 


176500 
000300 
000003 
000600 


L 1 
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-SBTTL DEFAULT HARDWARE P-TABLE 


pee 


; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


; THE TEST*DEVICE PARAMETERS. 


THE STRUCTURE OF THIS TABLE 


; IS IDENTICAL 19 THE STRUCTURE OF THE HARDWARE P-TABLES. 





DFPTBL 

175500 ;CSR ADDRESS 

306 sVECTOR ADDR. 

3 sTEST DRIVE ZERO AND ONE 
0 sNOT PDT TYPE INTERFACE 


ee ne ee 












492 


00220¢ 


002204 
00220€ 


493 00221¢ 


002212 
002214 
002216 
002220 


002220 


PROGRAM HEADER AND TABLES 
SOFTWARE P-TAB_E 


00 010 
006001 
090001 
000001 
000001 
C00001 


a 1 
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-SBTIL SOFTWARE P-TABLE 


344 


> THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


LENGTH: . 
STAEOP: 


PRBUF : 


CMPDAT: 
DRVCHK: 
EVLTHR: 


BGNSW 


ENDSW 
ENDMOD 


SFPTBL 
; TAPE LENGTH 


; COMPARE DATA 


ae 2 OO 
. 


;ADD DR # TO DATA 
; THRESHOLD FOR EvL TEST 


wn a ne ee. 


.OGRAM 


PRINT STATISTICS AT EOP 
;PRINT DATA BUF ON COMP. ERROR 


om eee oe ae 


SEQ 0012 | 


| 
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SOFTWARE P=TABLE SEQ 0013 
520 .TITLE GLOBAL AREAS 
+h SBT": GLOBAL EQUATES SECTION 
559 
560 002220 BGN¥OD 
561 
562 3+ 
563 : THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
te : ARE USED IN MORE THAN ONE TEST. 
566 
567 002220 EQUALS 
: BIT DIFINITIONS 
190000 B1T15== 100000 
040000 Bl114== 40000 
020000 B1113== 20000 
010000 BITi2== 10000 
004000 Bl111== 4000 
002000 BIT10== 2000 
001006 81T09== 1000 
000490 BIT08== 400 
000200 B1TO07== 200 
000100 Bi1T06== 100 
000040 B1T0S== 40 
000020 BITOQ4== 20 
000010 B1103== 10 
000004 BilO02== 4 
000002 B1T01== 2 
000001 B1T00== 1 
001006 BIT9== B1109 
000400 Bl18== BI1108 
600200 BlT7== B1107 
000109 BlT6== B1T106 
000040 BiTS== BIT05 
900020 BIT4== BI104 
009010 Bli3== B1IT103 
000004 Bl12== B1162 
000002 BlTl== B1101 
000003 BiTO== 61100 
: EVENT FLAG DEFINITIONS 
+  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
000040 "? SSTART= 32 ; START COMMAND WAS ISSUED 
000057 EF. RESTART = 31, > RESTART COMMAND WAS ISSUED 
000036 EF. CONTINUE = 30. s CONTINUE COMMAND WAS ISSUED 
006045 EF .NEW== 29. : A NEW PASS HAS BEEN STARTED 
000054 EF. Peas 28, + A POWER@FAIL/POWER=UP OC CURRED 


000340 PRIvizs 34 
006506 PRIV6.= 300 


OO OT TT Le eR mm we me me mem ee ee me me ee 


tam 
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GLOBAL EQUATES SECTION 


000240 
000290 
000140 
006100 
000040 
000000 


000004 


100000 


‘ase 


[OPERATOR FLAG BITS 


Ze eee DOM ee pe rs 
oOoom@wx DZ0O0 rT" 
mm pDnMn- MN BD wc 
te tr te te te te te te btn te te ete 


a Se as 





GLOBAL AREAS MACRO M1110 O2-AUG-79 15:53 PAGE 16 


ERROR CODE EQUATES SEQ 0015 
82 .SBITL ERROR CODE EQUATES 
S84 THE ERROR CODE OFFSET VALUES : 
585 -USED BY ROUTINE ‘LOG’ TO INDEX (BY R5) INTO DEVICE'S DATA BLOCK AND 
eae sINCREMENT STATISTICS. 
568 000002 SFIRD == 2 
589 000004 SFIWR === 4 
$90 000006 RCINIT == 6 
591 000012 OVRN == 10. 
592 000014 BDCOM == 12, 
593 000616 HRDRD === 14. 
594 000020 HRDWR === 16. 
595 000022 BDCHK == 18. 
596 000024 SKERR == 20. 
597 000026 WRLOCK == a2 
598 000030 NOMOT == 24. 
599 000032 CNINIT == 26. 
600 000034 PARTL === 28. 
601 000036 NOUNIT == 30. 
602 000040 CMNDER == 32. 
603 000042 RECERR == 34. 
604 000044 SLFER == 36. 
605 000046 SUCOTL == 38. 
606 006050 TORCVB == 40. 
607 000052 OTL =: 42. 
608 000054 NCART == re 
609 000056 TOSNDB == 46. 
6 
611 : IN ADDITION, SYSTEM SETUP OR RUNTIME ERRORS ARE: 
612 
613 : 100. ~ ALL UNITS ABORTED 
614 
615 : 101, - MORE THAN 8. UNITS (16 DRIVES) REGUESTED 
616 
617 : 102. - NEITHER DRIVE SELECTED FOR THIS CONTROLLER 
618 
619 : ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATA 


ES 
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GENERAL EQUATES ; SEQ OC16 | 
623 ~SBTTL GENERAL EQUATES 
oss RADIAL SERIAL CODES: 
526 : THE se A ak CODES ARE: 
627 000002 CMND == 2 :""COMMAND’’ PACKET 
628 000020 RSCONT == 20 s"CONTINUE’’ SINGLE BYTE 
629 000020 RSKXON == 20 7"MON'' SINGLE BYTE 
630 000023 RSKXOFF == 23 7'MOFF’’ SINGLE BYTe 
631 000004 RSINIT == 4 7INIT’’ SINGLE BYTE 
632 000001 RSDATA == 1 :''DATA’ PACKET 
4 ty 000002 RSEND == RSCMND 7""END’' PACKET FLAG IS ‘‘COMMAND*’ 
635 END PACK SIZE: 
636 000016 RSNDSZ == 14, ; TOTAL BYTES IN COMMAND PACKET 
637 MESSAGE PACK B pm 
638 000012 RSMSIZ == 12 710. BYTES FOR BYTE COUNT INSIDE CMND PACK 
639 ;DATA PACK SIZE: 
640 000204 RSDASZ == 132. sTOTAL BYTES IN DATA PACKET 
641 DATA + END PACK SIZE: 
a 000222 RSDNSZ == RSDASZ*RSNDSZ 
64 
644 000016 RSSNSZ == RSMSIZ + 4 SIZE FOR SENDING COMMAND PACK 
645 001036 RCBFSZ== 4*RSDASZ+RSNDSZ 34 DATA PAKS AND END PACK 
646 1S SITE OF RCV BUFFERS 
647 J re nnn neem neem ener n een ne: cece enenneennenwnsesasasne 
6048 : THE (© CODES ARE 
649 
650 
651 000100 RSSEND == 100 END PACK DESCRIPTOR 
652 000003 RSSWR == 3 sWRITE 
653 000002 RSSRD == 2. sREAD 
654 000005 RSSSEK == 5 ; SEEK 
655 000000 RSSNOP == 0 ;NO-OPERATION 
656 000001 RSSNIT == 1 INITIALIZE 
44 000007 RSSSLF == 7 SELF TEST 
6 8 SSO SS OOS FOSS SSS SS OSES SSSSSSSSSSSSSSSSSSSSSSSSSSSTESSTE SPSS SSS FSeeeeen Seo 
2 THE SUCCESS CODES ARE 
66 
661 177720 ESABO 8 ===48. ;BAD COMMAND FROM HOST 
662 177767 ESNCRT ==-9, NO CARTRIDGE 
663 177770 ESNONX ==-8, sNO DRIVE 
664 000000 ESGK == ;OP COMPLETE SUCCESS 
665 177776 ESPART ==92 PARTIAL OP 
666 177740 ESSK =ze32, SEEK ERROR 
667 000001 ESTRY ==1 sRETRYS OCCURRED 
668 177765 ESwWLOC ==911 WRITE PROTECTED 
609 177737 ESNOMO ===33, sMOTOR STOPPED 
670 177720 ESCMD 8 =="48, ; COMMAND ERROR 
671 177711 ESREC ==55. ;BAD RECORD NUMBER, 
672 177757 ES(KS ==017, 3 TU CHKSUM ERROR 
675 177777 ESsiF 6 ==el, sSELF TEST ERROR 
177 SCKS 
17 KS 
17 KS 









Pesaran Gi gr et pincitnsaccinennenionso ae 2 
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ERROR MESSAGE DESCRIPTIONS SEQ 0017 | 










ety -SBTTL ERROR MESSAGE DESCRIPTIONS 

682 THE TABLE OF ERROR MESSAGES (ADDRESSES). ABNDX(R5) CONTAINS THE OFFSET 

oar ;OF THE REASON. IT'S ABSOLUTE ADDRESS IS RSNTAB * ABNDX(R5S). 

6 

685 002220 002314 RSNTAB: MSNLOG 

686 002222 003046 MSSFRD 

687 002224 003106 MSSFWR 

688 002226 002530 MSRNIT 

689 002230 002314 MSNLOG | 
690 002232 003252 MSOVRN 

691 002234 002376 MSCOM 
692 002236 003146 MSHDRD | 
69% 0022460 003210 MSHDWR 

694 002242 002550 MSHCHK | 
695 002244 002300 MSSKER 

696 002246 002506 MSWPRO 
697 002250 092440 MSNOMO | 
698 002252 002612 MSNIT | 

699 002254 002626 MSPART | 
700 002256 002650 MSUNIT 

701 002260 002676 MSCMD 

702 002262 062712 MSREC 

703 002264 002356 MSSELF 

704 002266 002732 | MSWRSP | 
705 002270 002756 . MSNRSP | 
706 002272 002772 MSORSP 
70? 002274 002456 MSNOTP 


002276 003024 MSTOSN 





ne en 3 we ene = 3 enn 2 en ne 
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HERE ARE THE MESSAGES PROPER: 





SEQ 0018 
/SEEK ERROR/ ;DEVICE COULD NOT READ HEADER 
/SYSTEM ERROR/ DIAGNOSTIC HUNG. BETTER RE-BOOT 
/BAD DATA IN PACKET/ sHOST DATA CHECK eng ERROR, DEVICE MAY 
sHAVE READ CORRECTL 
/SELF TEST ERROR/ ;MICRO DIAGNOSTIC FAILED, BUT DEVICE COULD STiLL 
;SEND AN END PACKET. 
/BAD DATA W-O0 DATA CHECK ERR AT TU/  ;PREVIOUS DATA CHECK 
;ERROR NOT DUE TO DEVICE READ OPERATION 
/MOTOR STOPPED/ Phan TA am NOT GET ANY MEANINGFUL SIGNAL 
/CARTRIDGE NOT IN PLACE/ ;NO MED1* OR BAD SWITCH 
/WRITE PROTECTION/ ;CARTRIDGE WRITE PROTECT TAB MISSING OR 
SWITCH BAD 
RECIEVING INIT/ DEVICE SENT INI? REQUEST 
/HOST FOUND PACKET CHECKSUM ERROR/ ;DEVICE SENT PACK WITH 
;BAD CHECKSUM 
/CAN'T INIT/ :DEVICE SENT BYTE OTHER THAN ‘’CONTINUE’’ 
:DURING INITIALIZATION 
/PARTIAL OPERATION/ ;END OF MEDIUM ENCOUNTERFD 
/NON-EXISTENT’ DRIVE/ ;DEVICE RECV'D TOO LARGE DRIVE NUMBER 
/BAD COMMAND / ;DEVICE COULD NOT UNDERSTAND HOST 
/BAD RECORD NO./ :DEVICE RECV'D TOO LARGE A RECORD NUMBER 
/WRONG SUCCESS CODE/ 7HOST COULD NOT DECIPHER CODE IN END PACK 
/NO RESPONSE/ TIME OUT WAITING FOR BYTE IN RCV BUF ON INTERFACE. 


\INDECIPHERABLE FLAG BYTE\ ;HOST COULD NOT UNDERSTAND 1ST BYTE OF 
RESPONSE FROM TU AS PROPER PROTOCOL 
/TIME OUT ON SEND/ DLV ‘READY® NEVER WENT HIGH 


/RECOV. DATA CHECK ERR ON RD OP/ ;TU5S8 RESPONDED WITH ‘‘DATA=ChECK" 
ERROR ON READ GP. sHOST RETRY(S) SUCCESSFUL 
/RECOV. DATA CHECK ERR ON WR OP/ SAME BUT WR OR WR VERIFY OPERATION 


/UNRECOV. DATA CHECK ERR rs RD OP/ ;TUS8 RESPONDED WITH “‘DATA+CmECK"® 
ROR ON READ OP. :RETRIES UNSUCCESSFUL 
/UNRECOV. DATA CHECK ERR oN. WR OP/ ;SAME BUT WR OPERATION 


/DLV ERROR IN RECEIVE/ DLV ERROR (THE CONTENTS PRINTED OUT) 


2 ES SS SA A EY SN SA a TS SE S| ee se one erence 


een ES Sn SSN 
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MISC STORAGE AND EQUATES 


003300 


003334 
003336 


ae ree a es + + -- —— _ 
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000000 


090000 


000000 


177777 
000226 





-SBTTL MISC STORAGE AND EQUATES 


SYSTAT:: .WORD TATUS WORD 


“wm 


3s SYST 
:BIT7-BIT15 = 1ST BYTE OF PACK RCVD 
;B1T05 = NOT USED 
sBI1T04 = NOT USED 
3B1103 = NOT USED 
3B1T02 = NOT USED 
;BITO1 = RETRY OCCURRING 
sB1T00 = CHKSUM IS ODD (TEMP STORAGE) 
TAPLEN:: WORD 3# RECORDS 
DEVPTR:: .WORD 3°>NEXT UNIT ADDRESS 
RCFLG:: .WORD s TEMP STORE FOR GIBYTE 
RCBCNT: .WORD ; TEMP STORAGE FOR GTBYTE 
FTLNM: «WORD 4 sNUMBER OF TRIES BEFORE ABORT 
DONE:: WORD 31 IF TEST ALGORITHM COMPLETE 
IDPTR:: .WORD sPTR IN TESTID MACRO 
TSTTOP: .WORD sPOINTER TO CURRENT TEST 
MXRTRY:: .WORD 8. sNUMBER OF RETRIES, BEFORE ‘'HARD’’ ERROR 
BLKER:: .WORD sRECORD # FOR ERROR REPORT 
SECREC:: .WORD sRECORD # TO START AFTER SWITCHING TRACKS 
PRNSIZ:: .WORD :SIZE OF PACK FOR ‘'PRNPAK*’ 


ALLGON:: .WORD sSECONDARY DON'T PRINT STATISTICS FLAG. 


CSNRDY:: <1 ; TIME OUT ON SEND DELAY (DLV NOT READY) 
CSRCvVB:: 150. 345 SEC. MULTIPLIER REWIND TIME 
:CAN BE OPTIMISED PER CPU 


| 
: TIME OUT CONSTANTS: 
| 
| 
: 
| 


GLOBAL AREAS 


DATA BLOCK FORMA 
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T 


000000 
000002 
000004 


000020 


000036 


000060 
000062 
000064 


000066 


000100 
000102 


000114 
009116 


-SBTTL DATA BLOCK FORMAT 


:R5 ==> TOP OF 1 OF THE 8 DATA BLOC 
:OR5 1S THE STATUS WORD CONTAINING: 


(1 PER UNIT) DURING EXECUTION 


succs 
CMDSNT 


RCVBUF 
PKPIR 
ASPTR 
WRTNO 
WRIN] 
RDNO 
RDN1 


nnuu@ 
Cr ne 


tot te te te te 
te ot te te ote oe oe 


CT ee ee 


~ 
= 


fnNmo 
sees 


ABORTED 

SEND ‘'BREAK*' 

HALTED 

TEMP STOR WRITE MACRO 

UNIT NOT BEING TESTED 
RETRYING 

TUS8 CHKSUM ERROR 

RD/WR OPERATION 
NORMAL/REDUCED THRESHOLD (MACROS) 
HOST DATA COMPARE ERROR 

WR .ERIFY OPERATION 

TYPE OF PAK SENT ODATA 1CMD 


Om MWEu 


OO 0D OO Ob Go wD cw wD wD > Cw w< 
OWS WO ~WO em eS ee eS 


;ERROR NUMBER FOR LOG 

;STORAGE FOR REGISTERS USED IN TEST BODY 
STORED WITH SWAPOW 

RETRIEVED WITH SWAPIN 


;POINTER TO NEXT EXECUTABLE TEST INST. 
;DLV RCV STATUS ADDRESS 
;DLV RCV DATA ADDRESS 
;DLV SND STATUS ADDRESS 
;DLV SND DATA ADDRESS 
; THE NUMBER OF PACKETS TO RECEIVE 
THE EXPECTED FLAG OF 1ST PACKET 
THE EXPECTED COUNT OF 1ST PACKET 
FOR MULTIPLE PACKET RECIEVES (MAX.4) 
emer ip ty XSFLGS AND XSCNTS 
=0 OR 1; BI18,9 DRIVE SELECTED BY OPERATGR 
COUNTER FOR TRACK NUMBER 
RECORD (BLOCK #) 


TEST MACRO REGISTER 

;THE # OF BYTES FOR SENDING PACKET 

DATA PATTERN-LOWER BYTE USED 

;CONTENTS OF RCDB ON DLV ERROR 

SUCCESS CODE OF LAST END PACKET 

:TYPE OF COMMAND CURRENT IN EVEN BYTE; BITIS==VEKIFY OP. 


POINTER TO 542. BYTE BUFFER (4 DATA PAKS * END PACK) 
;POINTER TO TOP OF PACKET 

:POINTER TO CURRENTLY USED XSFLG OR XSCNT 

THE # OF 512. BYTE BLOCKS WRITTEN DRO 


: THE # OF 512. BYTE BLOCKS WRITTEN DRI 
:THE # OF 512. BYTE BLOCKS READ DRO 
THE # OF 512. BYTE BLOCKS READ DR! 


Oe ee = ee ne RE eS nn 
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DATA BLOCK FORMAT 


863 000120 
864 000122 
865 000124 


&71 000132 
874 000140 


877 000146 


892 000202 
89% 000204 
B96 000210 


sAND THE ERROR LOG.. 


:SPLIT INTO A BYTE PER DRIVE: : 3 on : DRO : 

sOFFSET IN DATA BLOCK sERROR TYPE ;ERRCODE; MSG CODE;SuC. CODE 
LGOFST == 80. st*RESERVED*® 
SOFTR ss 82. : SOF FT READ sSFTIRD ;MSSFRD ;ESCKSM 
SOFTW == 84. sSOFT WRITE sSFTWR ;MSSFWR ;ESSKSM 
3 WORD RECIEVED INIT ;RCINIT ;MSRNIT ;#eeee# 
: WORD 3s **RESERVED®*® 

THEN THOSE CODES WHICH HAVE N TRIES BEFORE ABORT 
T4TRY ee 90. ;DLV ERROR sOVRN sMSOVRN ;eeeee8 
BDATA == 92. s8AD DATA sBDCOM ;MSDATA ;*eeeee 
HARDR 2s 94. sHARD READ sHRDRD ;MSHDRD ;ESCKSM 
HARDW === 96. sHARD WRITE sHRDWR ;MSHDWR ;ESCKSM 
: WORD : CHKSM AT HOST ;BDCHK ;MSHCHK ;eeeeee 
: WORD sSEEK ERROR TOTAL;SKERR ;MSSKER ;eeee88 
TITRY ss 102. sWRITE PROTECT ;WRLOCK ;MSWPRO ;ESWLOC 
: WORD sNO MOTOR sNOMOT ;MSNOMO ;ESNOMO 
: wORD ;CANT INIT sCNINIT ;MSNIT aeeres 
: WORD sPARTIAL OP sPARTL ;MSPART ;ESPART 
3 WORD sNO UNIT sNOUNIT ;MSUNIT ;ESNON* 
; WORD :COMMAND ERROR ;CMNDER ;MSCMD- ;ESCMD 
3 WORD sBAD RECORD NO. ;RECERR sMSREC ;ESREC 
: WORD sSELF TEST ERROR;SLFER ;MSSELF ;eeeeee 
3 WORD sWRONG SUC.CODE ;SUCOTL ;MSWRSP ;*eeee8 
3 WORD sNO RESPONSE s;TORCVB ;MSNRSP ;eeeeee 
s WORD sWEIRD FLAG 3; OTL sMSQRSP ;eteree 
z WORD sNO CARTRIDGS sNOCART ;MSNOTP ;ESNCRT 
3 WORD sTIME OUT SEND; TOSNDB ;MSTOSN ;#eeeee 
BLKEND == 130. sOFFSET OF END OF STATISTICS (RESERVED) 
. WORD s#* RESERVED *# 

TUVECT == 132 :VECTOR ADDRESS 

; WORD ste RESERVED ** 
BLKSIZ2 <== 136. s¢* RESERVED ** 


peer m nan ome 


SEQ 0021 


a ae nn = a a ac ne a ee re oR wee re 





GLOBAL AREAS 
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003356 


003360 
003570 
094900 
004210 
004420 
004630 
005040 
005250 


003360 


005250 
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-SBTTL 


TABLE OF DEVICE DATA BLOCK ADDRESSES 


BLKTBL:: 


LSTDEV:: 


AND STORAGE FOR EACH: 


DEVO: 
DEv!: 
DEV2: 
DEv3: 
DEV4: 
DEVS: 
DEV6: 
DEV?7: 


DEVICE DATA BLOCK ALLOCATION 





freee emp eEEEEES anegenen 
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GLOBAL TEXT SECTION 


94) ~SBTTL GLOBAL TEXT SECTION 


me : NAMES OF DEVICES SUPPORTED BY PROGRAM 
4 ; 
~~ 005466 DEVTYP <T1US8 CONTROLLER> 


a a en n= cen rene Senet ee eee nen ee ne ce ee eee wee ec ee ee EE ee oan 





GLOBAL AREAS 


ee ae ned ee st 
ooococNM0eo 
a ee ere 


So 
OOONO WF wr 


— 
oo 
MOR 
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-SBTTL SYSTEM MACRO DEFINITIONS 


MACRO PUSH 
-ENDM 


«MACRO POP,REG 


~ENDM 


-e¢ 


MOV 


MOV 


REG, -(SP) 


(SP)+,REG 


TTHE MACRO "SWAPIN® RETRIEVES THE TEST REGISTERS WHICH WERE SAVED 


7 IN THE DEVICE DATA BLOCK. 


MACRO = SWAPIN 


~ENDM 


7¢9 


;THE MACRO ‘SWAPOW' SAVES THE CURRENT STATE OF THE UNIT IN THE DRIVE 
DATA BLOCK IN SO THAT THE SCHEDULER MAY "SWAPIN® ANOTHER UNIT. 


-MACRO SWAPOW 


~ENDM 


SEQ 0024 


! 
{ 
| 
—_ 
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SEQ 0025 


5%? 

STHE WRITE MACRO IMPLEMENTS i+€ COMPLETE PROTOCOL NECESSARY 10 BUILD 

:A COMMAND PACKET AND SUBSEQUENT DATA PACKETS (UNTIL THE BYTE COUNT 

;(BCNT) IS SATISFIED). 

;SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 

;OXSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 

;"RSVP’ TO SEND EACH PACKET, AND 'CHKSUM® TO CALC. THE PACKET 

3; CHECKSUM. 

; INPUTS = DEVICE BLOCK ars 

; TRBUF = BUFFER ADDRESS 

; UNIT'S TEST REGISTERS FROM 'SWAPIN' 

; OUTPUTS - SNDCNT (RS) = # OF BYTES TO SEND 

: XSPKNM = # OF PACKETS EXPECTED 

; XSFLG = FLAG BYTE OF 1ST PACKET 

; XSCNT = BYTE COUNT OF 1ST PACKET 

» » ret 

; . © SUBSEQUENT XSFLGS 

Py - > 

: . © AND XSCNTS 

: . «te 

.MACRO TUWRIT PTRN, REC, aBCnt. DR, VER, 2A, 2B, 20, 2D, 26, 2F .2G,2H.?! 
#TRBUF .RO :MAKE COMMAND PACKET: 

MOVB #RSCMND ,aRO :COMMAND FLAG 
MOVB  #RSMSIZ,1(RO) THIS SIZE 
MOVB &#RSSWR,2(RO)  ;INSERT OP CODE-WRITE 
MOVB VER, 3. (RO) :VERIFY (1 OR 0) 
MOVB DR, 4. (RO) :DRIVE # 
MOVB = #020,5. (RO) SMAINTENANCE MODE SWITCH 
CLR 6. (RO) :NO SEQUENCE # 
MOV BCNT,8. (RO) ;TOTAL COUNT TO WRITE 
MOV REC, 10. (RO) ZAT RECORD N 
MOV #RSMSIZ,R1 : THE PACKET SIZE PLUS#2 
1ST (R1)¢4 (FLAG AND COUNT) INTO RI 
MOV WRSSNSZ,SNDCNT(R5) ;LOAD THE SIZE TO SEND 
CALL  CHKSUM :RO ==> RI=COUNT 


MOV R1, (RN) 


“PUT CHKSUM IN PACKET 


SET UP EXPECTATIONS: 


MOV MRSCONT,XSFLG(RS) ; THE FLAG 
MOV #1,XSCNT(R5) 3 THE COUNT 
“OV #1, XSPKNM(R5) ;THE # PACKETS EXPECTED 


RSVP 
BIC #B1T12,aR5 
MOV BCNT ,R2 


A: MOV #TRBUF RO 
CMP R2,4128. 
BHI B 
MOV R2,R1 
BIS #BI1T12,aR5 
BR C 

B MOV #128. ,81 

¢ 


MOVB R1,1(RO) 
R1,R3 
ARSDATA,@RO 





SEND (AND RETURN TO SCHEDULER? 
sFLAG FOR LAST PACKET 

:GET # OF DATA BYTES 

;POINT TO TOP OF BUFFER AGAIN 
START DATA PACKET(S) 

:BCNT > 128.! 

;BCNTA128. 

380 LAST PACKET NOW 

sUSE REMAINING COUNT 

USE 128. BYTES 

:COPY COUNT TO BUFFER 
R3=COUNTER TO LOAD BUFFER 
FLAG FIRST 


‘ 
ee en NE SE A NE A te ee ew Sennen ah 


' 
bree EES REED NNER oe 
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SYSTEM MACRG DEFINITIONS SEQ 0026 
1081 1ST (RO)¢ SKIP COUNT 
1082 D: Move PTRN,(RO)* ; INSERT DATA 
1083 DEC R3 ; MORE? 
1084 BHI D 7 YES 
1085 MOV #TRBUF ,RO 37>>TOP AGAIN 
1086 MOvB 1(RG) RI :GET COUNT 
1087 BIC #177400,R1 ;ZERO SIGN. EXTEND 
1088 MOV R1,SNDCNT(RS)  ;HOW MANY TO SEND PLUS 
1089 ADD #4,SNDCNT(R5) ;FLAG, COUNT, CHKSUM 
1090 ADD #2,R1 ;COMPENSATE FOR FLAG + COUNT 
1091 CALL CHK SUM FOR CHECKSUM CALC. 
1092 MOVB R1,<RO)+ ;CHKSUM INTO PACKET 
1093 SWAB R1 sEVEN ON AN ODD 
1094 MOVB R1,(RO)* ;BYTE BOUNDARY 
1095 Bli #B1T12,aR5 [LAST DATA PACKET? 
1096 BEQ E 3NO 
1097 MOV WRSEND,XSFLG(R5) ;VES-EXPECT ‘END’ 
1098 MOV MRSNDSZ,XSCNT(R5S) ;OF THIS SIZE 
1099 MOV #1, XSPKNM(RS) SAND 1 PACKET 
1100 BR F 3 SEND 
1101 . E; MOV ARSCONT,XSFLG(RS) ;(NOT LAST), EXPECT "CONTINUE® 
1102 MOV #1, XSCNT(RS) AND 1 BYTE 
+103 MOV @1,XSPKNM(R5)  ;AND 1 PACKET 
*104 F: “ALL RSVP SEND PACKET 


05 _, — TO SCHEDULER 
06 BIT #BIT10,aR% sRETR 

07 BNE G YES 

08 SUB #128.,R2 “NO, MORE DATA TO SEND? 
99 BHI A ves 

10 BR H 3NO 

11 G TURTRY REC,BCNT,DR sRETRY HERE 

12 BIT @B!T10,aR5 sRETRY AGA,N? 

13 BNE G s YES" 

14 ts NOP ; DONE 

15 ~ENDM 


= eo 


i 
eee SRR Ae EER EE A TT Sh TT 


aA 
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~ENDM 


1118 p44 

1119 sTHE SEEK MACRG IMPLIMENTS TKE COMPLETE PROTOCOL TO INITIATE A SEEK 

iiSt ; SEQUENCE. 

1122 sSETS UP THE EXPECTED PROTOCOL RESPONSES: THE NLMBER OF PACKETS 

1123 ; (OXASPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 

1124 >"RSVP" TO SEND EACH PACKET, AND ‘CHKSUM® TO CALC. THE PACKET 

1125 >; CHECKSUM. 

1126 3 

1127 ; INPUTS - DEVICE BLOCK aR5 

112¢ 3 UNITS TEST REGISTERS FROM SWAPIN 

4 94 s TRBUF = BUFFER ADDRESS 

1131 ; OUTPUTS - 

1132 . XSPKNM = # CF PACKETS EXPECTED 

1133 : XSFLG = FLAG BYTE OF IST PAZKET 

1134 : XSCNT = BYTE COUNT OF 1ST PACKET 

1135 : eee 

1136 ; * SUBSEQUENT XSFLGS 

1137 ; > 

1138 3 * AND XSCNTS 

1139 : . ete 

1140 . 

1141 j-- 

1142 

Anes -MACRO TUSEEK REC,DR 

44 

1145 MOV @TRBUF ,RO s-->(POINT TO’ XMIT BUFTER 

1146 MOvVB @RSCMND ,aRO sFORM COMMAND MESSAGe PACK 

1147 MOvVB MRSMSIZ,1(RO) sTHIS BIS 

1148 MOVB MRSSSEK,2(RO) ;OP CODE IS SEEK 

1149 MOV REC,10.(RO) 310 THIS RECORD 

1150 MOVB DR,4.(RO0) ;AND WHICH DRIVE 

1151 CLRB 3. (RO) sNO MODIFIER 

1152 CLRB 5. (RO) sNO SWITCHES 

1153 CLR 6. (RO) sND SEQUENCE # 

1154 CLR 8. (RO) sNG BYTE COUNT 

1155 MOV ARSMS12,R1 3GET COUNT 

1156 TST (R1)+ sPLUS FLAG * BCNT 

1157 sFOR CHECKSUM CALC 

1158 CALL CHK SUM sRO-=>TOP R1i=# OF BYTES 

1159 MOV R1,(RC) S INSERT INTO PACKET 

1160 sSET UP EXPECTATIONS: 

1161 MOV MRSSNSZ,SNDCNT(RS) ;HOW “ANY TO SEND 

1162 MOVB MRSCMND XSFLG(RS) sEXPEC?T END PACK 

1163 MOV MRSNDSZ,MSCENTCRS) sCOUNT WITH THIS 

1 MOyv @).,XSPKNM(R5) sEMPECT ONLY 1 PACKET 
CALL RSVP 


7 SEND 
SAND SETURN TO SCHEDULER 


‘ 
OO Ee] 


a ee SC an ea a < —_ 
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— 
~~ 
—_ 


:44 
; THE RETR¢ MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
A RETRY (READ OPERATION) SEQUENCE. 


SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
> OXOSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
falas ig SEND EACH PACKET, AND "CHKSUM’ TO CALC. THE PACKET 

; CHECKSUM. 


: INPUTS = DEVICE BLOCK ars 
TRBUF - BUFFER ADDRESS 
UNITS TEST REGISTERS FROM SwAPIN 


OUTPUTS = SNDCNT(RS) = # OF BYTES TO SEND 

XSPKNM = # OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 

> wea 

. * SUBSEQUENT XSFLGS 

e > 

° * AND XSCNTS 


-MACRO TURTRY REC,BCNT,DR, 2A, 7B, 2C, 2D, 2€ 


ek oe nt 
TAD et i i i 8 8 et eh mt th et wl 
ODOOODODOOOO0OOW WWW OW WM OMWOnN NNN 
DO DNAMAEWN $0 CONF MEW HO ODN VF Ww 


Ds MOV #TRBUF ,RO sFORM CMND PACK: 
MOVB #RSCMND ,aRO sMESSAGE PACK TYPE 
MOVB @RSMSIZ,1(RO) ;THIS BIG 
00 MOVB MRSSRD,2(R0) 70P CODE-READ 
201 MOV REC,10. (RO) sTHIS RECORD 
1202 MOVB DR,4. (RO) sTHIS DRIVE 
1203 CLRB 3(RO) ZPRESET NORM THRESHOLD 
1204 TSTB ars sREDUCED? 
1205 BPL E NO 
1206 INCB 3(RO) 7YES@CHANGE THRESHOLD 
1207 E: MOV BCNT,&. (RO) 3@ BYTES DESIRED 
1208 MOVB #020,5.(R0) sMAINTENANCE MODE 
1209 CLR 6. (RO) sNO SEQUENCE @ 
1210 MOV MRSMS17,R1 sSIZE OF PACKET 
1211 TS! (R1)¢ sPLUS FLAG*COUNT INTO R} 
ene MOV @RSSNSZ,SNDCNT(R5S) 3SET UP SIZE TO SEND 
12 
1214 CALL CHK SUM sFORM CHECKSUM RT=COUNT 
1215 MOV R1,(RO) s INSERT IN PACKET 
1216 ; 
1217 MOV BCNT,R1 sSET EXPECTATIONS: 
1218 sCALC @ OF DATA PACKETS TO EMPECT 
1219 MOV @XSFLG,R3 sOFFSET OF FLAG 
1220 ADD R5,R3 ;ABS. ADDR. OF KSFLG 
1221 CLR R2 sPRESET 
1222 4 INC R2 3@ PACKETS EXPECTED 
1223 MOV MRSDATA,(RSi¢ ° sLGAD MSFLG 
#132. ,(R3i6 SAND EXPECT COUNT 
a128.,8) sNEG RESULT LAST TIME 
r SL AST TIME! 


A sMORE TO DO 
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INC 
MOV 
MOV 
MOV 


CALL 


R2 ;ADD ONE FOR END PACK 
R2,XSPKNM(RS) sSAVE # PACKETS 70 EXPECT 
MRSEND,(R3)¢ sEXPECT AN END 
MRSNDSZ,(R3) sTHIS BIlG-14. BYTES 


RSvP 7 SEND 
;AND RETURN TO SCHEDULER 


wn ee ween eee ee eee ee eee 


SEQ 0029 | 


7 
7 
7 
7 
7 
7 
7 
7 


80 


OONAUE Ww 


12 
12 
12 
12 
12 
12 
12 
12 
12 


-4+¢ 
THF READ MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
7% READ SEQUENCE. 


SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
> (USPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
ludtas ng SEND EACH PACKET, AND "CHKSUM’ TO CALC. THE PACKET 

; CHECKSUM. 


INPUTS = hdd BLOCK a5 
TRBUF = BUFFER ADDRESS 
UNITS TEST REGISTERS FROM SWAPIN 


OUTPUTS = SNDCNT(R5) = # OF BYTES TO SEND 
XSPKNM = # OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF IST PACKET 
XSCNT = BYTE COUNT OF iST PACKET 


* SUBSEQUENT XSFLGS 
> 
* AND XSCNTS 


-MACRO TUREAD “FC,BCNT,DR,VER,?A,?B,2C, 2D 


MOV #TRBUF ,RO 7FURM CMND PACK: 
MOVB #@RSCMND ,aRO sMESSAGE PACK TYPE 
MOVB #RSMS1Z,1(RO) THIS BIG 

MOVB #RSSRD,2(RO) :OP CODE IS READ 


MOV REC, 10. (RO) ; THIS RECORD 
MOVB DR.4. (RO) :THIS DRIVE 
MOVB VER, 3. (RO) VERIFY 
MOV BCNT,8.(RO) sTOTAL SYTES TO READ 
MOVB #020,5. (RO) sMAINTENANCE MODE 
CLR 6. (RO) 3NO SEQUENCE # 
MOV @RSMS1Z,R1 sGET SIZE OF PACKET 
1ST (R1)¢ +2 FOR CHECKSUM 
MOV ARSSNSZ, SNDCNT (RS) sSI1ZE TO SEND 
CALL CHKSUM FORM CHECKSUM R1=COUNT 
MOV R?, (RO) S INSERT CHECKSUM 
MOV BCNT,R1 sSET EXPECTATIONS: 
sCALC @ OF DATA PACKETS 

MOV AXSFLG,R3 7GET OFFSET 
ADD R5,R3 3ABS. ADDR. OF KSFLG 
CLR R2 :PRESET AS NONE 

A: INC R2 3@ PACKETS EXPECTED 
MOV M@RSDATA,(R3)¢ ;LOAD XSFLG 
MOV #132,,(R3)¢ sAND EXPECTED “OUNT 
SUB #128,,R1 sNEG RESULT LAST TIME 
BLOS C LAST TIME 
BR A sMORE TO DO 

C: INC R2 ;ADD ONE FOR END PACK 
MOY RZ, ASPKNMC(RS sSAVE @ PACKETS TO ERPES 
MOV MRSEND,(R 1) * SEMPECT AN END ALSO... 





SEQ 0030 


TO EMPECT 
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SYSTEM MACRO DEFINITIONS 





ENDM 


#RSNDSZ,(R3) 
RSvP 


B1T10,aR5 
B 
—“Wigeeaaesinae 


THIS BIG-14. BYTES 

SEND 

AND RETURN TO SCHEDULER 
RETRY? 

NO. 


YES 
ANOTHER RETRY? 
NO 


en eo cee ae wt mets ge 


SEQ 0031 
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s+ 
sTHE SELF TEST MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY T0 
INITIATE A "DIAGNOSE’ SEQUENCE. 


SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
> (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
soRSvPe 10 SEND EACH PACKET, AND 'CHKSUM® TO CALC. THE PACKET 
Ps H K . 


; INPUTS = DEVICE BLOCK aR5 
; TRBUF = BUFFER ADDRESS 
UNITS REGISTERS TEST FROM SWAPIN 


; OUTPUTS = SNDCNT(RS) = # OF BYTES TO SEND 
; XPKNM = # OF PACKETS EXPECTED 

FLAG BYTE OF 1ST PACKET 
BYTE COUNT OF 1ST PACKET 


* af 

° * SUBSEQUENT XSFLGS 
> 

* AND XSCNTS 


ate 


«MACRO TUSELF 


MOV #TRBUF ,RO >FORM COMMAND PACKET 
MOVB #RSCMND ,aRO ;COMMAND FLAG 

MOVB #RSMS1Z,1(RO) sSIZE OF MESSAGE 
MOVB WRSSSLF,2(RO) SELF TEST OPERATION 


AANA AINA AOA AAA AAW Www WNW 
Pe a atetetetetertete pete tet tt et tt et tt tt tt tt tt thee baet bat eheber be perh 
WH 0 DONG VE WMO OONS VFWN—OOONOUVEWN OO 


CLRB 3(RO) NO MODIFIER. 
CLR 4(RO) NO DRIVE OR SWITCHES 
CLR 6(RO) NO SEQUENCE NUMBER 
CLR 8.(RO) NO BYTES 
CLR 10. (RO) ;NO RECORD # 
MOV #RSMS1Z,R1 GET SIZE 
TST (R1)¢ 3*2 FOR CHECKSUM 
MOV MRSSNSZ,SNDCNT(RS) [SIZE TO SEND 
CALL CHK SUM FORM CHECKSUM 
MOV R1,(RO) INSERT INTO PACKET 
MOV MRSEND,XSFLG(RS) ;EXPECT END, 
MOV MRSNDSZ,MSCNT(R5S) [THIS BIG 
MOV #1, XSPKNM(RS5) AND 1 PACKET 
; SEND 
CALL RSVP RETURN TO SCHEDULER 


«ENDM 


GLOBAL AREAS 
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SYSTEM MACRO DEFINITIONS 


i 


sTHE TEST 1D MACRO INTERFACES THE SUPERVISOR'S 


s;DIAGNOSTIC’S FORMAT BY IMPLEMENTING CALLS THAT: 


TEST DISPATCH TO THE 
1) INITIALIZE THE 


sPC OF THE TEST CODE (TSTPC(RS)), 2) ASSIGN THE 1ST DRIVES, 3) RUN 


STHE TEST, 4) SWITCH DRIVES AND REINITIALIZE, 


-MACRO TSTID ADDRES,?A 


eNLIST 

-LIST ME 

«LIST 
MOV ADDRES, 
CALL SETUP 
CALL SETDR 
CALL RUN 
CALL SWAPDR 
BCC A 
CALL SETUP 
CALL RUN 

A: 

NLIST 

NLIST ME 

LIST 

ENDM 


5) RUN THE TEST AGAIN. 


TSTTOP ;SAVE ADDR OF TEST 
INIT UNITS TSTPC 
[GET 1ST DRVS. 
:DO0 TEST 
;GET NEXT DRVS. 
;BR NO 2ND DRvVS 
:REINIT UNITS TSTPC 
REPEAT TEST 
; DONE 


ten a a nee meee teen - 


GLOBAL AREAS 
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005500 


005566 
005570 


005576 
005600 
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005002 


000750 


005792 
001401 
000261 
000207 


000000 


003340 
000064 
100000 
906001 
001000 
000060 
005600 


000002 


005600 


000060 
000060 


003356 
005600 


- SBTTL 


poe 


; THE GLOBAL SUBROUTINES 
: hg LINK THE DIAGNOSTIC 


+ 
<° 


INP 


OUTP 


SWAPDR:: 


1$: 


3$: 


4$: 


5$: 
SWPTR: 


PAGE 48 


GLOBAL SUBROUTINES SECTION 


UTS: 


CLR 


$ 
RETURN 
» WORD 


pd CONTAINS THE SURROUTINES THAT ARE USED 


SE 
TO THE SUPERVISOR (THROUGH THE TSTID MACRO). 


WAPDR 
Mla LA DETERMINE IF TO TEST OTHER DRIVE (FOR ALL UNITS) 


R5) = DRIVE CONFIGURATION 
BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 


LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


DR(RS) UPDATED TO TEST SAME OR OTHER DRIVE 
CARRY SE* I* SECOND PASS NECESSARY 


R2 sFOR # OF DRIivE 1°S. 
#BLKTBL,SwPTR ; TABLE ADDR. OF IST UNIT 
aSWPTR,RS GET DATA BLOCK ADDR. 
ote ae Bhp 
#BITO,DR(RS) sDID DR. 0? 

:NO, DID DR.1 1ST PASS 
#B1T9,DR(R5S) S YES; 1 SELECTED? 
3$ sNO, ALL DONE 
DRC(RS) 3YES, SWAP 
R2 sONE MORE TO TEST 
SWPTR,#LSTDEV :LAST DEVICE? 
4% YES 
#2,SWPITR :NO= POINT NEXT 
1$ ;bD0 
ae (CLEAR CARRY) MORE TO DO? 


sYES 
RETURN 


ae RR ee 


SEQ 0034 


a nce net So _ “ —< 
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GLOBAL SUBROUTINES SECTION SEQ 0055 


1486 pee . 
Loy +4 : SETDOR = SUBROUTINE TO GET DRIVE FOR 1ST PASS FOR EACH TEST he 
1489 : INPUTS: DR(RS) = DRIVE CONFIGURATION 
1490 : BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
pe 3 LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
abe : OUTPUTS: DR(RS) 1S SET 10 TEST DRIVE O OR DRIVE 1 
ee 
6 
1497 005602 012737 003340 005656 SETDR:: MOV #BLKTBL,SETPTR ;TABLE OF ADDR. 1ST UNIT 
1498 005610 017705 000042 1$: MOV ASETPTR,RS :GET DATA BLOCK ADDR. 
1499 005614 105065 060060 CLRB DR(RS) ;PRESET AS DRO 
1500 005620 032765 000400 000060 BIT #B1T8,DR(RS) 3D0 DRO? 
1501 005626 001002 BNE 2$ 7 YES 
1502 005630 105265 000060 INCB DR(RS) ;NO“USE DRIVE 1 
1503 005634 023727 005656 003356 2%: CMP SETPTR,#LSTDEV ;MORE UNITS 
1504 005642 103004 BHIS 3% sNO-EXIT 
1505 0056044 062737 900002 005656 ADD #2,SETPIR sYES-GET TABLE ENTRY 
1506 005652 000756 HR 1$ : CONFIGURE THAT UNIT 
1597 005654 000207 3$: RETURN 
1508 005656 000000 SETPTR: . WORD 


\ 


re 


| 
| 
| 
| 
| 


a ne 
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GLOBAL SUBROUTINES SECTION SEQ 0036 


1511 p44 

+444 : CLRALL = CLEARS INPUT BUFFER FOR RESPONSE FROM UNIT. 
1514 : INPUTS: 2@LKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
+4 ; LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
aie > OUTPUTS: ALL UNITS BUFFERS CLEARED. 

1519 CALLS: CLRBUF 

1854 - 

1522 005660 012737 003340 005752 CLRALL:: MOV WBLKTBL,CLRPTR ;TOP OF TABLE OF ADDRESSES 
1523 005666 017705 000060 1$: MOV ACLRPTR,RS :GET DATA BLOCK 

1524 005672 004737 005720 CALL CLRBUF CLEAR IT'S RECEIVE BUFFER 
1525 005676 023727 005752 003356 CMP CLRPTR,MLSTDEV ;LAST DEV? 

1526 005704 103004 BHIS 2% sYES 

1527 005706 062737 000002 005752 ADD #2,CLRPITR s==>NEXT 

1528 005714 000764 oi 1$ > CONTINUE 

1529 005716 000207 2%: RETURN 





. 
; 
i 
ane ee mae te oc a et nn te es a nc nn nes a ee rr en or a a Se A a Se a ne 


mn 
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GLOBAL SUBROUTINES SECTION SEQ 0037 
1532 344 
1533 ; CLRBUF = CLEARS 1 UNIT'S INPUT +h a 
1534 : INPUTS: RCVBUFC(RS) IS BUFFER STAR 
1535 : RCBFSZ = SIZE OF getty: purFER IN BYTES 
1536 3 RCBFSZ IS SIZE OF BUFFER 
1537 My OUTPUTS: CLEARED AREA. 
1538 3° 
1539 
1540 005720 CLRBUF:: PUSH RO 3 SAVE 
1541 005722 PUSH RG SAVE R 
1542 005724 016500 000102 MOV RCVBUF(RS),RO ;GET ADDRESS OF BUFFER 
1543 005730 012704 001036 MOV @ROBFSZ,RG :SIZE IN BYTES 
1544 005734 005020 1$: CLR (RO) + SCLEAR IT 
1545 005736 162704 000002 Su8 #2,R4 32 BYTES LESS 
1546 005742 001374 BNE 1$ :MOR 
1547 005744 PoP 


—_ 
uw 
oo 
o 
oO 
uw 
“ 
= 
o 
wv 
oO 


Re RESTORE 
1549 005750 000207 RETURN ZEXIT 
1550 005752 000000 CLRPTR: .WORD 
| 
| 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


15 

1564 005754 
1565 005760 
1566 005766 
1567 005772 
1568 006000 
1569 006006 
1570 006010 
1571 006016 
1572 006020 
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005037 


000207 





003314 


003316 
000002 





003316 


000020 
003356 


003316 






P4 
Py 
é 
P4 
° 
. 
° 
° 
. 
° 


SETUP:: 
1$: 


e$: 





AL 


"SETUP - CALLED WITHIN EACH TEST TO INSERT BEGINNING ADDRESS OF THE 
TEST INTO ALL UNITS TEST PC'S. 

TSTTOP LOADED WITH TEST ALGORITHMS STARTING ADDR. 

BLKTBt = TOP OF DATA BLOCK ALLOCATION TABLE 

LSTIDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


TSTPC(R5) FOR ALL UNITS 
DONE - CLEARED 


TABLE TOP ADDR 

;DEVICE’S DATA BLOCK 
INSERT PC FOR TOP OF TEST 
sALL UNITS SET? 


i YES 
3NO,GET NEXT POINTER 
UP 


DONE 

sibpia “ges 
TSTTOP, TSTPC(RS); 
ate ,WLSTDEV 


+ Bis 


eee re ee SEE eS SS SSP SiS SS SS SSS 






GLOBAL AREAS 










88 006040 


90 006042 
91 006046 
92 606050 
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004737 


005737 
001096 
004737 


004737 
000765 
000207 


GLOBAL SUBROUTINES SECTION 


906052 
003314 
006736 


Civ112 


44 


; RUN = IMPLEMENTS THE CALLS TO SEND $1 bes RECEIVE PACKETS, THEN 
CHECK ANSWERS DURING TEST RUN TIME. 


; OUTPUTS: NONE 


RUN:: CALL 


B 
2$: RETURN 


: INPUTS: DONE 


NXTST 
DONE 
2% 

GE TANS 


CRHKANS 
RUN 


MAKE AND SEND NEXT PACK TO ALL 
SUNABORTED UNITS 
; COMPLETE? 


i YES 
3NO,GET ALL RESPONSES 
; SUPERVISOR CHECK 


; CHECK ALL RESPONSES 
sCONTINUE TILL DONE 


A eet eee + 


SEQ 0059 





Ce cee ee OE RS OS TS SD: e 


on 





GLOBAL 


AREAS 


006146 
006154 


006156 
000162 
006170 


006174 


0060314 
006324 
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NXTST / THE SCHEDULER 


)12737 


052737 
004775 


000741 
005037 
012737 
017705 


005715 
100426 


100414 
004775 


001010 


003346 
175220 
002000 


000062 
annn2z6 
003304 
000002 
006336 


003340 
175110 


040000 


013222 
04000C 


000020 

06336 
003304 
000002 
000010 


003304 


003300 


003356 
003304 


003304 


003356 
603304 
06336 


-SBITL 


2$: 


NXTST2: 
PERDEV: 


34: 


6$: 
4$: 


WXTST / THE SCHEDULER 


(TSTPC(RS)), 
PACKET AND SENDING IT. 


+ 
NXTST = USING EACH UN-ABORTED UNIT'S TEST PROGRAM COUNTER 
EXECUTES THE TEST CODE THAT COMPRISES MAKING A 


ACTION IS ROUND ROBIN. CHECKS FIRST 


FOR ANY UNIT RETRYING AND IF SO SERVICES ONLY THAT UNIT THIS 
INITS NON-RETRYING UNITS IF NECESSARY. 

(IMPLIED) DATA BLOCKS. 

BLKTBL = TOP OF DATA BiLCCK ALLOCATION TABLE 


PASS. 
INPUTS: 


OUTPUTS: 


LSTDEV = ADDR. OF LAST UNIT'S 


DATA BLOCK 


ERRSF IF ALL UNITS ARE ABOPTED. 
SYSTAT 1S UPDATED 


ABLKTBL DEVPTR 
QDEVPTR,P5 
#B1T10,aR5 

2$ 

ars 

2$ 
#BITI,SYSTAT 
PC,aTSTPC(RS) 
NXTRET 
DEVPTR,#LSTDEV 


NXTST2 
#2. ,DEVPTR 
1$ 


ABONM 

MBLKTBL ,DEVPIR 
QDEVPTR,RS 

ars 

4$ 

#B1114,aR5 

6$ 


DOBRK 
#B1114,aR5 
4% 


aR5 
4% 


PC ,aTSTPC(RS) 
ars 

8$ 

ABONM 

Lota eninge 


#2.,DEVPTR 
PERD 


M30. NOMOR 


UNIT 9 TO START 

;GET DATA BLOCK 
;RETRYING? 

;NOT THIS GUY 

YES, ABORTED THO? 
7YES ON TO NEXT UNIT 
NOT ABORTED@SET RETRY STATUS 
GET DEVICE REGISTERS 
:D0 TEST FOR 

: THIS UNIT ONLY@EXIT 
;TRY NEXT UNIT? 


:NO 

7YES,->NEXT 

;GET BLOCK 

:HERE=NO RETRIES TO DO, NO LNIT ABORTED YET 


z7*>UNIT 0 STORAGE BLOCK 
gRS-->NEXT DEVICE STORAGE BLOCK 


ABORTED? 


s¥ES 
>SEND BREAK? 
0 


s¥ES 
sSUCCESSFUL INIT? 
sNO ON TO NEXT UNIT 


; ABORTED? 
;YES-ON TO NEXT UNIT 


SEQ 0040 


:NO, GET DEVICE REGISTERS RO-R4 CONTAINING TEST PARAMETERS 


TINITIATE 1 PACKET TRANSMISSION AND RETURN 


ABORTED? 

;NO-ON TO NEXT UNIT 
3YES...O0NE “ORE TALLIED 
sALL TU'S TRIED? 


iYES 
mu THE ADDRESS*#2=NEXT ADDRESS 


D0 NEAT UNGT 
NO. ABORTED? 


SUPERVISOR BRE AK 


ed 


oT on) 





GLOBA: AREAS 


1652 006326 
1653 006332 
1654 006334 
1655 


6 

1656 006336 
1657 006340 
1658 
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NKTST / THE SCHEDULER 


005237 003332 


000207 
000000 
101 


114 


NXTRET: 


ABONM: 
NOMOR: 


RETURN 


WORD 
eASCIZ 
«EVEN 


ALLGON igen. STATISTICS FLAG 


;THE NUMBER OF ABORTED UNITS 
/ALL UNITS ABORTED! / 


SEQ 0041 


—4 
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wSyP / KOFF AND SEND A PACKET TO ALL DEVICES SEQ 0042 | 
ret .SBTTL RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 
1663 344 
1664 : RSVP = SAVES TEST CODE PROGRAM COUNTER IN TSTPC(R5) AND UNIT'S REGIS- 
1465 ; TERS. POINTS TO ‘'XOFF’’ THAT PRECEEDS PACKET IN XMIT BUFFER 
1666 ; AND SENDS PACKET WITH XOFF. RETURNS TO SCHEDULER (NXTST) SO 
tor : a — UNITS PACKETS MAY BE FORMED, TO GET ALL UNITS WORKING 
° ON . 
1669 : INPUTS: (SP) CONTAINS UNITS PC TO SAVE SINCE RSVP WAS CALLED. THE 
1670 : NUMBER PACKETS EXPECTED (XSPKNM), AND THE EXPECTED FLAGS AND 
1671 ; BYTE COUNTS OF EACH (XSFLG, XSCNT...) ARE LOADED BY TEST CODE 
1672 : (MACROS). 
1673 : SNDCNT - # BYTES TO SEND 
1674 ; REC(RS) = RECORD # 
1675 : TRBUF - BUFFER ADDR. 
1676 : XSPKNM(RS) = # EXPECTED 
1677 ; RCVBUF (R5) 
1678 : 
1679 : OUTPUTS: CMDSNT = UPDATED WITH PACKET OP CODE 
1680 ; BLKER = RECORD NUMBER STATISTICS UPDATED IF NOT RETRYING 
1681 ; AND COMMAND PACKET SENT. 
1682 : SUCCS(RS) = PRESET CLEAR 
1683 : STATUS WORD ORS - BIT9 = DATA CHECK ERROR = CLEARED 
1684 : BITS = ‘VERIFY'' OPERATION 
1685 : B114 - 0 = DATA PACK 1 = CMND 
1686 : B118 - RD/WR OPERATION 
1687 : XSPTR = POINTS TO EXPECTED FLAG 
1688 : UPPER BY & OF XSPKNM IS REPLICATED 
1689 : PACKET PC! FuTER (PKPTR(RS)) POINTS TO TOP OF UNITS RECEIVE BUFFER 
1696 : AREA (RCVBUF(RS)) FOR CURRENT UNIT. 
1691 seo 
1692 
1693 006364 000240 RSvP:: NOP sFINISH TEST 
1694 006366 032665 000020 MOV (SP)+, TSTPC{RS) ;SAVE WHERE YOU WERE IN TEST BODY AND 
ee 006372 SWAPOW SAVE "EST REGISTERS 
696 
1697 :CORRECT FOR RETURN TO SCHEDULER 
1698 006416 012700 024367 XFNSND: MOV #{RBUFH1,R0 sPOINT TO XOFF 
1699 006422 005265 000070 INC SNDCNT(RS) :ONE MORE TO SEND, 100. 
1700 006426 000402 igh SND SEND XOFF+¢PACKET 
1701 006430 012700 024370 NOXOFF: MOV #TRBUF RO :FOR NORMAL PACKET SEND 
1702 006434 004737 006666 SND: CALL SNDBYT :SEND BYTE 
1703 006440 005715 1ST ars sR5--> TO STATUS BLK 
1704 006442 100510 BMI] 6$ ;ABORTED? YES...QUIT 
1705 006444 005365 000070 DEC SNDCNT (RS) ‘NO, SEND MORE 
1706 096450 001371 BNE SND s1F MORE TO SEND 
1707 000452 012700 024370 MOV #TRBUF ,RO + ==>BUFFER 
1708 0060456 016537 600064 003324 MOV REC(RS),BLKER  ;PREPARE FOR RECEIVE 
1709 006464 156565 000032 000033 BISB XSPKNM(RS) .XSPKNM*1(R5) sREPLICATE LO. BYTE TO HI FOR GTPAKS, (Cem aN’ 
1710 006472 005065 000076 CLR SUCCS(R5) sNO SUCCESS YET 
1711 006476 042715 001000 BIC #B1T9,aR5 3NO DATA CHK ERROR YET 
1712 0060502 016565 000102 000104 MOV arvput cas). PKPTR(RS) sTOP OF RCV BUFFER GOES THE 1ST PACKET 
1713 006510 012704 000034 mov SuSILG, R4 FORM 
1714 006514 060504 ADD RS,R ADDRESS 
44h, 000516 010465 000106 MOV me USPTRCRS) ‘OF 1ST XSFLG 
1716 
1717 006522 042715 6v0020 B1¢ #B114,aR5 PRESET AS DATA PAK 





orm 


GLOBAL AREAS 


RSVP / KOFF AND 


46 


te ek ee ee ed et et 


006542 
006546 


006602 
006604 


006610 


006656 


006660 
006664 
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SEND A PACKET TO ALL DEVICES 


121027 
001054 
116065 
052715 


032715 


005265 


126027 
001022 


000402 


005265 
000207 


0060002 


000002 
000020 


002006 
000002 


000400 
013052 


000114 
000116 
000002 


000400 
900003 


000040 


000040 
013052 


000110 


000112 


000100 


000002 


000003 


8$: 


INC 
RETURN 


ARO, #RSCHND 


#B11T4,aR5 
#B1T10,aR5 
¢$ 

2 (RO) ,WRSSRD 
4t 


#B118,aR5 
— 


8 

RDNO(RS) 

4% 

RDNICR5) 

2 (RO) ,#RSSWR 
6% 


#B118,aR5 
3(R0) 


21% 
#BIT5,aR5 
22% 


#BITS,aR5 
WHCHDR 


5$ 
WRINO(RS) 
ot 


WRINICRS) 


sWAS IT COMMAND PAK? 
6 | 
2(R0), CMDSNI (RS) beg ae COMMAND 


3NO 
7YES, RD/WR FLAG=1 


D 
3@ BLKS WRITTEN DRO 
sEXIT 


7@ BLKS WRITTEN DRVi 


' UPDATE ANY STATS OR CONDITION 
EAD? 


3NO 
3 CFOR 9 asl LOGGING) RD/WR FLAG=0 


3NO 

sYES@SET VERIFY FLAG 

3 (NO)-RESET VERIFY FLAG 
NO 


SEQ 0043 


a 
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SNDBYT / OUTPUT A BYTE TO UNIT 


013701 
105775 
100412 


005301 


000207 






003334 
000026 


000056 
012046 


000030 





SNDBYT / OUTPUT A BYTE TO UNIT 


SNDBYT = TEST "READY' ON INTERFACE. IF “READY', SEND BYTE AND ExIT. 
IF TIMED OUT, LOG ERROR. 
IwPUTS = Ru = POINTER TO BUFFER 
- IMPLIED UNIT DATA BLOCK 
- CSNRDY = TIMEOUT CONSTANT 
OUTPUTS = RO IS INCREMENTED. 
ERROR = NOT-READY=TO-SEND TIME OUT 


ENTER RO-=>ByYT 
GET TIMEOUT CONSTANT FOR NOT READY ERROR 
ge TO SEND? 


NO, SAVE RO 
MONITOR BREAK 


RESTORE 
; ABORTED? 


7NO 
sYES, -_" CODE FOR TIMEOUT ERROR 


aa 
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GETANS / GETS RESPONSES ROUND ROBIN USING ‘‘XON' SEQ 0045 
fe -SBTTL GETANS / GETS RESPONSES ROUND ROBIN USING ‘‘XON" 
1783 344 
1784 : GETANS = IF A UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER (CLRBUF) AND GET 
1785 : H1S RESPONSE (GTPKS1), ELSE, CLEAR ALL BUFFERS (CLRALL) AND 
1786 ; GET ALL RESPONSES (GTPKS8). 
ie ; INPUTS: SYSTAT = SYSTEM STATUS WORD. 
1789 ; OUTPUTS: SERVST = <1 IF NO RETRIES. 
1790 ed 
1791 
1792 006736 000240 GETANS:: NOP 31 UNIT IF RETRY; ELSE ALL 
1793 006740 32737 000002 003300 BIT #BITI,SYSTAT RETRY? 
1794 006746 001010 BNE 1$ sYES 
1795 006750 0612737 177777 007656 MOV #-1,SERVST sPRESET NO UNITS SERVICED 
1796 006756 004737 005660 CALL CLRALL sCLEAR ALL INPUT BUFFERS 
1797 006762 604737 007214 CALL GTPKS8 3GET 4LL REPLYS 
1798 006766 000404 BR 2% EXIT 
1799 006770 004737 005720 1$: CALL CLRBUF sRETRY-CLEAR 1 UNIT ONLY 
1800 sRS=>UNIT BY NXTST 
1891 006774 004737 007004 CALL GTPKS1 3GET 1 REPLY 
1802 007000 000207 23: RETURN ; DONE 


1803 
1804 007002 000000 GETPTR: .WORD 


an a i 0 rr a en ee nt ee ee ee 2S SS a A NS 





GLOBAL AREAS 


Oe a Se et et et 
O° 09 Op OO 00 OD 0D 00 00 CD OD OD 
PDD tet et es os st os se 
—“OOOnCUVfwn—oO 


007004 


+434 007026 
1829 007032 


4 294 007142 


007144 
1852 007146 
1853 007152 
1854 007154 
1855 007160 
1856 907164 
1857 007166 
1858 007172 
1859 007174 


0 
007176 
1862 007200 
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GIPKS1 / GET RETRY RESPONSE=-1 UNIT 


000240 
912703 


o-oo°0o°0o-c 
ono ONo 


001006 
000764 


005302 
001403 


000034 


000002 
907212 
006666 


000102 


100000 
003301 
003306 
000002 


000016 
000001 


000061 
000204 


003310 


007662 
000074 


100000 


003310 


003310 


~SBITL GTPKS1 / GET RETRY RESPONSE=1 UNIT 


a 
>; GIPKS1 = SENDS ‘XON* TO UNIT, 


> INPUTS: 


NOT, 
If 11'S A PREMATURE DATA PACK. 
AND REPEAT ABOVE UNTIL NO MORE PACKETS. 
(IMPLIED) UNITS DATA BLOCK 

RSNDSZ = END PACKET SIZE 


FLAG BYTE RECEIVED 


PACKET, 


WHAT WAS EXPECTED. 


GETS FLAG BYTE (IF ANY), 
If IT 1S, USE EXPECTED BYTE COUNT(XSCNT). IF 


CHECKS IF IT IS 


CHECK IF PREMATURE-END PACK OR (SINCE MAINTENANCE MODE) 


; OUTPUTS: SYSTAT UPPER BYTE = 


GTIPKS1:: 


14%: 


NOP 
M 


#XSFLG,R5 
R5,R5 
R3,R1 
#2.,R1 


#EXON,RO 
SNDBYT 


RCVBUF (R5) ,RO 
XSPKNM4+1(R5) ,R2 
#177400,R2 
aR1,RCBCNT 
aR3,RCFLG 
GIBYTE 
#B1T15,aR5 

4% 


RO 
@RO,SYSTAT+1 
ORO,RCFLG 

2$ 

ORO, #RSEND 

14% 
#RSNDSZ,RCBCNT 
#1,R2 


2$ 
@RO,#RSDATA 
4% 

@RSDASZ ,RCBCNT 
R2 

RO 

RCBCNT 

3$ 


GTBYTE 
DLVC(RS) 


4% 
#B1115,aR5 
4% 
5$ 


Re 
4¢ 


ADJUST COUNT, GET REST OF 


3RS=->THE UNIT 

; THE OFFSE* VALUE OF FLAG 

;FORM THE ABSOLUTE ADDRESS 
sR3-->ADDR. OF EXPECTED FLAG 
sR1l-->ADDR. OF EXPECTED COUNT 
;RO=ADL «ESS 

3 MON THE DEVICE 

seee TIME CRITICAL 

sett~e> TO THE BUFFER 

s#eeGET THE # OF PACKETS TO RECEIVE 
;t#*SI1GN UN-EXTEND 

s#eeHOW MANY BYTES IT SHOULD BE 
s#ee*WHAT THE FIRS! BYTE SHOULD BE 
ste*GET THE ALL IMPORTANT FLAG 

: TIMEOUT? 


7YES 

=> BYTE RECIEVED 

;SAVE IT AS FLAG BYTE 

:1ST BYTE WHAT WAS EXPECTED? 


YES 
:NO, WAS IT END PAK? 


Ne. USE END SIZE FOR COUNT 
[AND ASSUME IT'S LAST PACKET! 
> CONTINUE RECEIVE 

;WAS IT DATA? 

3NO,CHKANS MAY FIND INIT. 
YES, SET FOR DATA PAK SI 
;ONE MORE PACK iHAN EXPEC 


RESTORE [0 -> NEXT BYTE 
s}wAT'S ONE LESS ByTt— 10 GO 
7 Te 


3GE1 nl” OF PACKET 
ERROR 

sYES@ALL OVER 

;OR IF ABORTEC 

; THEN QUIT 
;CONTINUE RECEIVE 


;ONE LESS PACKET 16 30 
MORE PACKETS IN TF wNSACTION? 
7 YES 


— ve 


E 
ED (END PACK) 


SEQ 0046 





GLOBAL ARE?” 
GIPKS1 / GF 


1864 007202 
1865 007204 
1866 007206 
H+ oe 007210 


1868 
1869 0072%2 
1870 007213 
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1 RETRY RESPONSE=1 UNIT 


(R1)*,(R1)¢ 
» ‘yale nlant 


‘ SXON 
PRSKOFF 





sy TO NEW EXPECTED COUNT 
AND FLAG, 


GLOBAL AREAS 
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GTPKSB / GET RESPONSES (NO RETRIES) 


1890 007214 


1908 007316 


1923 007400 
1924 007404 
1925 007406 
1926 007414 
1927 007416 
1928 007422 
1929 007424 


000240 


012700 
004737 


001444 
004737 


003340 
900430 
190000 
007572 
000033 
007572 


000035 


007212 
006666 
000104 
007662 
100000 
000033 
003301 
003306 


000033 
000002 


000016 
000001 
000222 
003310 
007662 


007660 


003306 
000106 
0033i0 


003310 


003310 


SEQ 0048 


-SBTTL GTPKS8 / GET RESPONSES (NO RETRIES) 


; : GIPKS8 ° [ ALL ABORTED UNITS SERVICED (SERVST: BIT PY ITION). UNTIL 
‘ ALL UNITS SERVICED (SERVST=0), IF NO MORE PACKLTS, SET UNIT 
; SERVICED, ELSE, GET A FLAG BYTE FROM UNIT, DECREMENTING THE 
; NUMBER OF PACKETS LEFT. CHECK TO SEE IF EXPECTED FLAG, 
: ADJUST COUNT IF NOT, GFT «EST OF PACKET. IF WAS DATA PACK, 
; i ant * TO ENHANCE THROUGHPUT AND GO ON TO NEXT UNIT 
: Y). 
; INPUTS: (CIMPLIED)UNITS DATA BLOCK POINTED 10 BY R5. NONE PASSED. 
; RSNDSZ = END PACK SIZE 
; RSDNSZ = DATA + END SIZE 
; OUTPUTS: SYSTAT = UPPER BYTE=1ST BYTE RECEIVED, CURRENT UNIT 
GTPKS8:: NOP sGET ALL UNITS RESPONSES KOFF IF DATA PAK (THROUGHPUT) 
MOV WBLKTBL,GIPTR ;=>1ST 
GTAGIN: MOV aGTPTR,RS GET DATA SLOCK 
BIT #BIT15,aR5 + ABORTED? 
BEQ 2$ NO 
CALL SETSRV PYES*SET® SERVICED* AND 
BR GTDOWN [ON TO NEXT UNIT 
2$: TSTB XSPKNM+1(RE NO, ANY PACKETS LEFT? 
BNE 3% YES 
CALL SETSRV TNO=HE * S DONE 
BR GTDOWN 7SO0 ON TO NEXT UNIT 
3$: DECB XSPKNM+1(R5) :NOW ITS ONE LESS PACKET 
MOV @XSPTR(RS),RCFLG ;GET EXPECTED FLAG 
ADD #2,XSPTR(RS) 37> COUNT 
MOV QXSPIR(RS) RCBCNT ;AND EXPECTED COUNT 
MOV #EXON,R 37> KON 
peeet IME CRITICAL 
CALL SNDBYT s***SEND IT 
MOV PKPTR(RS) RO ptte=>WHERE 1ST BYTE GOES 
CALL GTBYTE s*eeGET IT 
BIT #B1T15,aR5 ; ABORTED? 
BEQ 4$ ;NO-LONT I NUE 
CLRB XSPKNM+1(R5) :YES-NO MORE PACKETS EXPECTED 
BR GTDOWN ;ON TO NEXT 
4$: DEC RO seo>BYTE JUST RECEIVED 
MOVB @RO,SYSTAT#1 sSAVE IT 
CMPB @RO,RCFLG a 11 WHAT EXPECTED? 
BEQ GTOK YES 
UNXPCT: CLRB XSPKNM+1(R5) NO, MUST BE LAST REPLY 
CMPB ORO, #RSEND “MAYBE AN END PAK? 
BNE 4$ :NO 
MOV MRSNDSZ,RCBCNT ; VES, USE PROPER COUNT 
BR GTUM sAND GET IT 
4$: CMPB aro, — 318 11 DATA? 
BNE GTDOWN NO, ALL OVER, CHKANS WILL INIT UNIT 
MOV WRSDNSZ,RCBCNT ;YES, USE COUNT OF DATA ¢ END PAK SURE TO FOLL Old 
GTUM: INC RO WHERE TO STUFF THE REST 
5$: DEC RCBCNT sONE DOWN 
REQ GIDOWN NONE TO GO 
CALL GIBYTE sMORE 10 60 


| ot on | 





GLOBAL AREAS 
GTPKSB8 / GET RESPONSES 


1930 007430 


1933 007442 
1934 007444 
1935 007450 
936 


1 

1937 007452 
1938 007454 
1939 007460 
1940 907462 
1941 07466 
1942 007472 


1952 007534 
1953 007542 
1954 007550 
1955 007552 
1956 007560 
1957 007562 
958 


1 
1959 007566 
1960 007570 





032715 


000431 
005200 


105737 


001212 
000207 


(NO RETRIES) 


100060 
000074 
000033 


003310 


007662 
100000 


000074 
000u5>5 
Of 501 
007213 
007660 
000002 
00765¢ 


090104 


000106 
003356 


007660 


GTOK: 


1$: 


23: 


GTDOWN: 
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BNE 
RETURN 






area ars 
GTDOW 
DLVCRS) 


5$ 
XSPKNM+1(R5) 
GTDOWN 


RO 
* "CNT 


2$ 

GTBYTE 
#B1T15,aR5 
GTDOWN 
gee 


1 
hai 
GTDOWN 


st 
othe” aPKPTR(RS) 
;NO, ALL DONE 


OWN 
RO PRPTR(RS) 
WEXOFF ,RO 
SNDBYT 


#2.,XSPTR(RS) 
eres 


#2,GIPTR 
GTAGIN 
SERVST 


GTPKS8 


— 
:BUT DLV ERROR? 


NO 
ZYES*LAST TIME 
ZN TO NEXT 


NEXT PLACE Paes BUFFER 
:MORE BYTES 
7NOALL DONE 
sYES-GET IT 
s TIMEOUT? 
YES 
ZERROR? 
NO 
:LAST TIME 
sWAS DATA? 


START OF NEXT PACK NEXT TIME 
OFF AND SEND TO 


SENHANCE THROUGHPUT 
NEXT XSFLG FOR NEXT TRY 
hg ONE CYCLE ALL UNITS? 


3¥ 

sNEXT UNIT 

; CONTINUE RECEIVE 

;DONE SERVICING ALL PAKS 
sFROM ALL UNITS? 

sNO, KEEP TRYING 

YES 


SEQ 0049 


—_ 


rma 





GLOBAL AREAS 
SETSRV / SET UNIT SERVICED 


1972 007572 


1 
1985 007634 
1987 007636 


1994 007654 
1995 

1996 007656 
1997 007660 
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011505 


041057 


000207 
060001 


000100 
000200 


000000 
000000 


177770 
007636 


000002 


007656 


- SBTTL 


+4 


SETSRV: 


1$: 


2$: 


SRVIBL: 


SERVST: 
GIPTR: 


SETSRV / SET UNIT SERVICED 


SETSRY = RESET THE BIT J 
INPUTS = SERVST = ‘SERVI 

= @R5 = UNIT # (B 
OUTPUTS = SER 1E 


vV$i MODIF 
R5 

RO 

OR5,R5 
#177770,R5 
#SRVTBL RO 
R5 

2$ 

#2,R0 

R5 

1$ 
aRO,SERVST 
RO 

R5 


cTwowwwnw 
i ee eo th 
ee eg ed 
NOW SES wr Oo 


$0, 1, 2) 


;SET UNIT SERVICED 


3GET STAT wD 

;MASK UNIT @ 

:->TOP OF BIT TABLE 
sRIGHT ONE? 

3s YES 

sNO, ->NEXT 

71 LESS 

; CONTINUE 

sMOW 11 DOWN 


;RETURN 
B11 POSITION LOOKUP TABLE 


SEQ 0050 


GLOBAL AREAS 
GTIBYTE / GET A BYTE FROM UNIT 


2022 

2023 007662 
2024 007666 
2025 007672 


2050 010006 
2051 010010 
2052 010014 
20535 010022 
2054 010026 
2055 010032 
2056 010034 
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005037 


001370 
012700 


005065 


010106 
00333¢ 
000022 


000024 
000074 
000074 
(00074 


010106 


010110 
007213 
006666 
000022 


010106 
010106 


007212 
006666 
010110 


010110 


000074 
000074 


000074 


000074 


-SBTTL GTBYTE / GET A BYTE FROM UNIT 


: GrerTe - TEST cat} FOR ‘READY-TO-RECEIVE’ AND INPUT A BYTE, IF 
F NOT, THE FOLLOWING OCCURS: SEND ‘XOFF* TO UNIT I¥ 
PREPARATION FOR “C CHECK ("BREAK' TO SUPERVISOR). WAIT 
TO SEE IF A CHARACTER SLOPS OVER DUE TO UART LATENCY. IF 
ONE DOES THFN MIGHT AS WELL GET IT AND SEND ‘XON* TO GET 
THE REST OF [HE MESSAGE, OTHERWISE, ‘BREAK’. THEN SEND 
*XON', AND TEST FOR LONG TIMEOUT (A 30 SECOND REWIND). IF SO, 
LOG ERROR, OTHERWISE REPEAT THE ABOVE UNTIL READY OR TIME OUT. 
REMEMBER TO PRESERVE RO SINCE THE ‘BREAK’ TRAP CLOBBERS IT. 


INPUTS = RO POINTS TO INPUT BUFFER 
IMPLIED UNITS DATA BLOCK 
- CSRCVB TIME OUT MULTIPLIER 


Se Se Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Ge Se Se ter 
‘ 
1 


OUTPUTS = RO IS_ INCREMENTED 
- DLV (R5) NON-ZERO ON INTERFACE ERROR. 
ERROR = TIME OUT ON RECEIVE 
GTBYTE:: CLR GBIMP ; TIMEOUT REGISTER 
MOV CSRCVB,R4 TIMEOUT ERROR CONSTANT (MULTIPLIER) 
1$: Hh ARCSR(RS) READY? 
L 


3% 3NO 
MOV ARCDB(RS),DLV(R5) ;GET ERROR + BYTE 


MOVB DLV(RS),(RO)+ ;COPY BYTE TO BUFFER 
TST DLV(RS) sERROR? 
BMI 4% sYES@EXIT 
CLR DLVC(RS) rote be} 
BR 4% sAND EXIT 

3$: DEC GBIMP sDEC 1.0. CONSTANT 
BNE 1$ sSTILL VALID 


:CCDE TO SEE *C DURING LONG SEEK OR REWIND 
HERE GBIMP=0 
MOV RO,GBIMP2 RO MUST BE PRESERVED! 
MOV MEXOFF RO SQUIET THE DEVICE 
CALL SNDBYT ;BY SENDING XOFF 


6$: TSTB ARCSR(RS) ; CHARACTER SLOP OVER? 
BM] 5$ YES 
DEC GBTMP “NO-WAIT A WHILE 
TS1B GBIMP : DONE WAITING? 
BNE 6$ ‘NO 
BREAK sYES-NO SLOP OVER 
MOV #EXON,RO sSTART DEVICE TALKING 
CALL SNDBYT AGAIN 
MOV GBIMP2,RO sRESTORE RO 
BR 7% sEND KLUGE 
MOV GBIMP2,RO RESTORE RO 


MOV ARCDB(RS) ,DLVARS) ;GET ERROR * BYTE 
MOVB DLV(RS),(RO)* OPY BYTE TO BUFFER 


1ST DLV(RS) ; ERROR? 
BMI 17$ sVES@EXIT 
CLR DLV(R5) sNO@CLEAR 


SEQ 0051 


ona 








GLOBAL AREAS 


2057 010040 


2070 010110 
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GIBYTE / GET A BYTE FROM UNIT 


000400 


000000 


010110 
007212 
006666 
010110 


010106 


000050 
012046 


17$: 


7$: 


4$: 
GBIMP: 


GBIMP2: 


C LL 

fF TURN 
WORD 
«WORD 


17% 
#EXON,RO 
SNDBY? 
GBIMP2,RO 
4$ 


GBTMP 
kG 
1$ 
#TORCVB,RS 
LOG 


0 
0 


















sExIT 

s AGAIN SAVE RO 

sRESTORE 10 TALKING STATE 
:BY SENDING ‘XON' 
sRESTORE RO 

3; DONE 

3; TIMEOUT? 
NO 

3s YES 

3;LOG ERROR. 
;RETURN 


LE A a A ra a 


SEQ 0052 


EN tS TL TT me a ee te 
a nn a 
. _ 


t AREAS 


4 

010112 
8o 
010114 
010122 
; 010124 


010130 
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CHKANS / CHECK DEVICE(S) RESPONSE 


000240 
032737 
001403 
004737 
000422 


012737 
(17705 


000761 
000207 
000000 


000002 
210202 


003340 
000034 
100000 


“10202 
010200 


000002 


003300 


010200 


003356 
010200 


#BLKTBL,CHKPIR 


KPKS 
CHKPTR,#LSTDEV 
ANR 





CHKANS / CHECK DEVICE(S) RESPONSE 


CHKANS = AS IN “'GETANS'', IF RETRYING DO ONLY 1 UNIT ELSE DO ALL NON- 


A TS. 

IMPLIED SYSTAT BIT? (RETRYING) 

BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


IF RETRY THEN CHECK ONE 
sELSE CHECK ALL 
;RETRYING? 


3NO DO NORMAL 

;YES DO BAZARRE WITH 
RS -> UNIT 

;ALL DONE 


;YOU KNOW ... TOP OF TABLE 


3GET UNIT'S BLOCK ADDRESS 
+ ABOR TED? 


YES 
NO, DO THIS GUY 
PALL DONE ? 


YES 
NO, ->NEXT DEVICE 
;D0 DA 
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CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 
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StQ 00546 © 


1s .SBITL CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 
2110 p44 
2111 : CHKPKS = FOR UNIT RS AND FOR ALL PACKETS, CHECK TO SEE IF PACKET IS DATA OR 
2112 : END PACK, CHECK CHECKSUMS, COMPARE DATA IF DATA PACK, CHECK 
2113 : SUCCESS CODE IF END. IF UNKNOWN PACKET TYPE, CHECK FOR INTERFACE 
2114 ; ERROR. IF CONTINUE’ FALL THROUGH. IF “‘INIT’’ SET ‘’SEND 
2115 ; BREAK’ FLAG. CALL "‘LOG'’ WITH R&=ERROR NUMBER IF ERROR. 
sis : INPUTS: (IMPLIED) UNITS DATA BLOCKS 
2118 : OUTPUTS: ERRORS = DLV ERROR 
2119 : - UNKNOWN FLAG BYTE ERROR 
2120 ; - CHECKSUM ERROR 
2121 ; - DATA COMPARE ERROR 
2122 : R4 = ERROR NUMBER 
siSe ; SYSTAT UPPER BYTE = 1ST BYTE OF RESPONSE 
c tied 
2125 
2126 010202 000240 CHKPKS:: NOP sCHECK WHAT WAS RECIEVED 
2127 010204 016500 900102 MOV RCVBUF(RS),RO  ;GET BUFFER ADDR. 
2128 010210 016502 000032 MOV XSPKNM(R5),R2  ;AND # OF PACKETS EXPECTED 
2129 010214 012703 000034 MOV #XSFLG,R3 THE OFFSET VALUE 
2130 010220 060503 ADD R5,R3 *R3-=>THIS UNIT XSFLG AGAIN 
2131 010222 010301 MoV R3,R1 :COPY TO RI 
2132 010224 062701 000002 ADD #2,R1 :R1l-->XSBCNT FOR 1ST PACKET 
2133 010230 010065 000104 1$: MOV RO,PKPTRIRS. :POINT TO PACKET 
2134 010234 111037 003301 MOVB aRO,SYSTAT#1 SAVE RCV'D BYTE 
2135 010240 011137 003310 MOV aR} RCBCNT :GET COUNT 
2136 010244 011337 003306 MOV OR3,RCFLG ZPND FLAG 
2137 010250 121013 CMPB ORO, aR3 31ST BYTE= =EXPECTED? 
2138 010252 001050 BNE 5$ :UH 
2139 010254 121027 000020 CMPB aRO,#RSCONT OK, 1S" It 1 BYTE? 
2140 010260 601516 BEQ 7$ :YES...ONTO NEXT PACK 
2141 sWO, SO > 1 BYTE (NEVER EXPECT INIT! 
2142 010262 013704 003310 MOV RCBCNT,R4 sEXPECTED, SO COUNT MUST BE RIGHT 
2143 010266 005744 TST =(R4) ADJUST FROM RECEIVE COUNT TO COUNT FOR CHECKSUM 
2144 010270 004737 013162 CALL CKCKSM CHECK CHECKSUM 
2145 010274 103005 BCC 2% :NO CARRY...NO INCORRECT 
2146 010276 012704 000022 MOV #BDCHK RG s ERROR 
2147 010302 004737 012046 CALL LOG :L0G6 IT 
2148 010306 000503 BR 7$ 70N TC NEXT P*°CK 
2149 010310 122710 000002 z$: (MPB #RSEND, (RO) sEND PAK? 
2156 010314 001005 BNE 3$ :NO 
2151 010716 004737 010536 CALL CHKEND 3 YES@CHECK 
2152 010322 012702 000001 MOV #1,R2 sLAST PACKET 
2153 019326 000473 BR 7$ s AND FALL THROUGH 
2154 010330 122710 000001 3$: CMPB #@RSDATA,aRO sDATA PAK? 
2155 010334 001003 BNE 4% nC 
2156 010336 004737 013762 CALL COMPAR =YES@ CHECK DATA 
aH 010342 000465 BR 7$ sALL DONE? 
2159 010344 052715 040000 4$: BIS #B1114,aR5 SET "DOBREAK' FLAG 
2160 010350 012704 000052 MOV MOTL,RG :OUT TO LUNCH 
2161 010354 005765 000074 1ST DLV(RS) :AH,BUT DLV ERROR? 
2162 010360 001402 BEQ 0$ :NO 
2163 010362 012704 000012 MOV BOVRN,RG SVES*USE CORRECT ERROR @ 
2164 010366 00’737 012046 208: CALL L0G sTALLY 
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CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / SEQ 0055 - 
Sede 010372 000460 BR 8% ; DONE 
ice sMERE CHECKS UNEXPECTED RESPONSE 
2169 010374 122710 000004 5$: CMPB #RSINIT,aRO zs INIT? 
2170 010400 001007 BNE 6$ 3NO 
2171 010402 052715 040000 BIS #B1114,aR5 sYES=SET "DOBREAK' FLAG 
2172 010406 012704 000006 MOV #RCINIT,RG : WE GOT AN INIT 
2173 010412 004737 012046 CALL LOG sTALLY IT 
2174 010416 000446 BR 8$ ; DONE 
2175 010420 122710 000001 6$: CMPB #RSDATA,ARO sDATA PAK? 
2176 010424 001013 BNE 9$ NO 
2177 010426 012704 000204 MOV #RSDASZ,R4 ;YES, USE DATA SIZE 
2178 010432 005744 TST =(R4) sADJUST FOR CHKSUM 
2179 010434 004737 013162 CALL CKCKSM ;AND CHECK 
2180 010440 103421 BCS 10$ ; GOOF 
2181 010442 004737 013762 CALL COMPAR 79K, HOW'S THE DATA? 
2182 sEXPECTED END, GOT 
2183 sDATA + END. 
2184 010446 062700 900204 ADD #RSDASZ,RO sPOINT TO END PACK 
44 44 010452 06°0666 BR 1$ sCHECK IT, USE SAME XSFLG 
2187 010454 122710 000002 9$: CMPB MRSEND, (RO) END? 
ci 010460 001331 BNE 4% :NO-OUT TO LUNCH 
2190 010462 012704 000016 MOV @RSSNSZ,R4 sYES, TOTAL SIZE MINUS 
2191 010466 005744 TST -(R4) s;TwWO (THE CHKSUM) 
2192 010470 004737 013162 CALL CKCKSM sCHECK IT 
2193 010474 103403 BCS 10% :O00PS 
the 010476 004737 010536 CALL CHKEND ;0K,NOW TEST SUC. CODE 
sist 010502 000414 BR 8$ ALL DONE 
2198 010504 012704 000022 10$: MOV #BDCHK,RS > CHECKSUM ERROR 
010510 004737 012046 CALL LOG 
010514 000407 BR 8$ sEXIT 
010516 005302 7$: DEC R2 sANY PACKETS LEFT TO CHECK? 
010520 001405 BEC 8$ sNO, ALL DONE 
010522 063700 003310 ADD RCBCNT,RO YES, POINT TO NEXT PACKET 
010526 022121 CMP (R1)4,(R1)¢ sPOINT TO NEXT EXPECTED COUNT 
010530 022323 CMP (R3)¢,(R3)¢ sAND EXPECTED FLAG 
010532 000636 BR 1$ TRY ANOTHER, THEY'RE SMALi 


010534 000207 8$: RETURN ;RETURN 





—_— en 


—_—_—__ CY 
— 5 
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CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / SEQ 0056 


eet .SBITL CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 
2214 : 
2215 ; * CHKEND - JF RETRYING; CHECK SUCCESS CODE AND IF 0, PRINT RECOVERED, LOG 
2216 : SOFT ERROR, END RETRY STATUS. IF NOT 0 AND WAS STILL "DATA 
2217 : CHECK" ERROR - DETERMINE WHETHER TO CONTINUE ANOTHER RETRY OR 
9 : LOG SUNRECO ‘ERABLE” ERRCR. 
2220 ; IF NOT RETRYING; CHECK IF “DATA CHECK" ERROR SUCCESS CODE, 
2221 : AND IF SO,START RETRY, ELSE EXIT. 
2222 ; INPUTS: IMPLIED UNITS DATA BLOCK 
2223 : OUTPUTS: RETRY (SYSTAT BIT 1), (BIT10 @R5) SET IF RETRYING. 
2224 ; = DATA COMARE ERROR (BIT6 ORS) CLEARED. 
EH 3 -  REDUCED/NORMAL GAIN (BIT? @R5) ADJUSTED 
2227 
2228 010536 CHKEND:: PUSH RO RO <-> END PAK 
2229 010540 PUSH RG 
2230 010542 032737 000002 003300 18: BIT #BIT1,SYSTAT RETRY ING? 
2231 010550 061052 BNE CHKREE 7 YES-BRANCH 
see 010552 004737 011536 CALL CHKSUC :NO» 7. ea CODE 
:L0G 
2234 010556 032715 100000 BIT #B1T15,aR5 s ABORTED? 
2235 01052 001402 BEQ 3$ :NO, CONTINUE 
2236 010566 000157 011242 JMP CHKRET ZYES EXIT 
2237 010°70 105765 000077 3$: TSTB SUCCS#1(R5) NO; HOW'D WE DO? 
2238 010574 691013 BNE CHKERR “NOT SO GOOD. 
2239 019576 032715 000100 BIT #B116,aR5 :OK, HOST FIND DATA PAK ERROR? 
2240 010602 001002 BNE 23 ZYES 
2241 010604 000137 011242 JMP CHKRET :NO 
2242 010610 012704 000014 2$: MOV #BDCOM,R4 sYES; JUST BAD DATA-NO DATACHK ERR 
2243 610614 004737 012046 CALL LOG :BAD DATA IN PACKET 
2244 010620 000137 011242 JMP CHKRET ult 
2245 010624 032715 001000 CHKERR: BIT #B119,aR5 :BAD SUCCESS; TU DATA CHK ERROR? 
2246 010630 001002 BNE 1$ YES 
2247 010632 000137 011242 JMP CHKRET “NO. ALL DONE. 
2248 010636 052715 002000 1$: BIS #B1T10,aR5 >YES=START RETRY 
2249 010642 012765 000001 000002 MOV #1, RETRYCRS) SCALL IT 1ST 
2250 010650 PRINTX @#RTRYN,RETRY(RS) ;#* PRINT ** 
2251 010674 000562 tyke CHKRET yALL DONE 
2252 010676 004737 011536 CHKREE: CALL CHKSUC ;RETRYING,GET SUCCESS 
2253 010702 105765 000077 ™S1B SUCCS+1(R5) : SUCCESSFUL YET? 
2254 010706 001054 BNE UNSUC NO, CHECK COUNT 
2255 010710 PRINTX #RECOV,RETRY(RS) 
2256 010734 105715 1S1B (R5) DETERMINE THRESHOLD 
2257 010736 100411 BMI 2$ 11'S MODIFIED 
2258 010740 PRINTX #THRSLO > NORMAL 
2259 010760 000410 Hk 38 
2260 010762 2%: PRINTX #THRSHI ENHANCED 
2261 011002 032715 000400 3$: BIT #B118,aR5 sWRITE OR READ OPERATION? 
2262 011006 001003 BNE 4$ sWRITE 
2263 011010 012704 000002 MOV #SFTRD,RG :READ 
2264 0110146 000402 be 5$ 
2265 011016 012704 000004 4$: MOV @SFTWR,R4 sWRITE 
2266 011022 006737 012046 S$: CALL LOG 
267 011026 005065 000002 CLR RETRY(RS) RESTORE 10 NORMAL STATE 


2268 011032 042715 0602200 BIC @BITIO‘BIT7,aR5 ;NO RETRY, NORM THRESHOLD 





om 

















GLOBAL AREAS 
CHKEND / CHECK SUCCESS 


2269 011036 900501 
2270 
2271 011040 000240 


005265 


2272 011042 032715 
2273 011046 001015 
2274 050 
2275 070 005065 
2276 074 042715 
2277 000460 
344 023765 
0 
1 


032715 


ee ee ee ce ce el el elt et ce et cet cet ce 
SOOOUWWUS F400 


0 

011 

911070 

011074 

011100 

011102 

011110 

011112 

011116 

011142 
2283 011146 001403 
22864 011150 042715 
2285 011154 000432 
2286 011156 052715 
2287 011162 000427 
2288 011164 000240 
2289 011166 
2290 011206 032715 
2291 011212 001003 
2292 011214 012704 
2293 011220 000402 
2294 011222 012704 
2295 011226 004737 
2296 011232 005065 
2297 011236 042715 
2298 
2299 011242 042737 
2300 011250 042715 
2301 011254 
2302 011256 
2303 011260 000207 
ee 


23 

2306 011262 045 
2307 

“308 011342 045 
2310 011370 045 
$312 011422 045 
¢ 011442 045 


001000 
002200 
003322 
000002 
000200 
000200 
000200 


000400 
000016 


000020 
012046 
000002 
002200 


0vu0002 
000100 


000002 


003300 


122 
040 
040 
122 
125 


UNSUC: 


2$: 


HRD 1: 


4$: 
5$: 


CHKRET: 


RECOV: 


THRSLO: . 
THRSHI: ‘ 


RTRYN: 
UNREC: 


RETERR: . 
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AND DETERMINE RETRY STATUS / 


3R 





CHKRET ;QuUIT 

sRETRYING; SEE IF HARD YET 
> eka we CHECK ERROR? 
#RETERR :NO="OTHER=ERROR™ ERROR 


RETRY(RS) NO RETRIES 
WBITIO!'BIT7,AR5 ;NO RETRY, NORM THRESHOLD 
CHKRET EMIT 
a ae eRETRYC(RS) gic DID WE GRADUATE TO HARD? 
RETRY(RS) NO. JUST _— 
WRIRYN,RETRY(RS) ;PRINT OUT 
#B117,aR5 WAS NORMAL THRESHOLD? 
1$ :YES-REDUCE GAIN 
#B117,aR5 ;NO-NORM 
CHKRET 
#B117,aR5 ; REDUCED 
CHKRET ; DONE 

sHERE 1S HARD ERROR! 
MUNREC 
#B1T8,aR5 RD OR WR? 
4% ; WRITE 
MHRDRD ,R4 7 READ 
5$ ;LOG IT 
#HRDWR RG s WRITE 
LOG ;LOG IT 
RETRY(R5) ;BACK TO NORMAL 


#BITIO!BIT7,aR5 


#BITI,SYSTAT 
#B115,aR5 

RG 

RO 


3NO RETRY, NOT REDUCED 


NO SYSTEM RETRY NEXT PASS 
;NO MORE HOST DATA CHECK ERROR 


/ZARECOVERED FROM DATA CHECK ERROR RETRY # 2D12N/ 
/%A NORMAL THRESHOLD&N/ 

/%A MODIFIED THRESHOLD %N/ 

/ZARETRY # 2D012N/ 

/ZAUNRE COVERABLE2N/ 


/RAOTHER ERROR DURING RETRY : EXIT RETRYRN/ 


SEQ )057 


GLOBAL. AREAS 
CHKSUC / INTERPRET SUCCESS CODE / 
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SEQ 0058 


cee0 -SBTTL CHKSUC / INTERPRET SUCCESS CODE / 

2322 -44 

2323 CHKSUC = COPY SUCCESS CODE (BYTE) TO SUCCS*1(R5). INTERPRET SUCCESS 
2324 ND IF NOT 0, LOG APPROPRIATE ERROR. 


A 
RO POINTS TO END PACKET. 


2325 : INPUTS: 
2326 : aR5 = UNIT STATUS WORD 
+4 ; CMDSNT(RS) = COMMAND BYTE 
2329 : OUTPUTS: R& IS ERROR NUMBER IF ERROR. 
2330 : SUCCS(R5) UPDATED. 
$33) : BIT9 @RS SET ON DATA CHECK SUCCESS CODE 
2333 
2334 011536 000240 CHKSUC:: NOP 
2335 011540 016065 000002 000076 MOV 2(RO), SUCCS(RS) ;RO=-=>END PACKET 
2336 011546 122760 000000 000003 CMPB #ESOK, 3( RO; GET SUCCESS BYTE 
see 011554 001533 BEQ 12$ sCOMPLETE SUCCESS<EXIT 
233 011556 122760 900001 000003 CMPB WESTRY, 3(RO) :OK BUT RETRIES? 
2340 011564 001012 BNE 208 :NO 
2341 011566 126527 000100 000002 CMPB CMDSNT(RS),#RSSRD;A READ? 
o30e 011574 001001 BNE 22% 7NO 
2344 011576 000516 BR 10$ NO RETRIES IN MAINTENANCE! 
2345 011600 126527 (00100 000003 22%: CMPB CMDSNT(RS) ,#@RSSWR tA WRITE? 
2346 011606 001001 BNE 208 :NO 
2347 011610 000511 BR 10$ sL0G IT 
2348 011612 122760 177737 000003 20$. CMPB #WESNOMO,3(RO)  ;=NO MOTOR? 
2349 011620 001003 BNE 1$ 3NO 
2350 011622 012704 000030 MOV #NOMOT RS 3s YES=- 
$o3) 011626 000504 BR 118 3L0G 
2353 011630 122760 177757 000003 1$: CMPB WESCKS, 3(RO) s"DATA CHECK" ERROR? 
2354 011636 001003 BNE 2$ sNO 
2355 011640 052715 001000 BIS #B119,aR5 SET DATA*CHK*ERROR FLAG 
$338 011644 000477 BR 12% :DONT LOG 
2358 011646 126527 000100 000007 2%: CMPB CMDSNT(RS) ,@RSSSLFE ;SELF TEST? 
2359 011654 001006 BNE 3$ s NOPE 
2360 011656 105760 000003 TSTB 3(RO) ZYES, NEG. IF ERROR 
See) 011662 100070 BPL 12$ 70K 
2363 011664 012704 000044 MOV SLFER, RS : YES-ERROR 
te 011670 000463 BR 11$ sL0G6 IT 
6 
2366 011672 122760 177740 000003 3%: CMPB WESSK, 3(RO) :SEEK ERROR? 
2367 011700 001003 BNE 4$ 7NO 
2368 011702 012704 000024 MOV #SKERR, RG SYES= 
soe 911706 0004654 BR 11$ :L0G 
2371 011710 122760 177767 000003 4$: CMPB MESNCRT,3(RO)  =NO CART? 
2372 011716 001003 BNE 5% :NO 
2373 011720 012704 000054 MOV @NCART,RG :YES=- 
gare 011724 000445 Hk 11$ 306 
2376 011726 122760 177720 000003 5$: CMPB WESCMD, 3(R0) NO UNDERSTAND HOST? 













GLOBAL AREAS 


2377 011734 
2378 011736 
2379 011742 
2380 

2381 011744 
2382 011752 
2383 011754 
2384 011760 
2385 

2386 011762 
2387 011770 
2388 011772 
2389 011776 
2390 

2391 012000 
2392 012006 
2393 012010 
2394 012014 
2395 

2396 012v16 
2397 012024 
2398 012026 


2399 012032 
400 


2401 012034 
2402 012040 
2403 012044 
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CHKSUC / INTERPRET SUCCESS CODE / 


001003 
012704 
000436 


122760 


000427 
122760 


000420 


122760 
001003 
01270 


es 
000411 


122760 
001005 
012704 
000402 


012704 
004737 
000207 


000040 


177770 
000036 


177765 
000026 


177776 
006034 


177711 
000042 


000046 
012046 


000003 


000003 


000003 


000003 


6$: 


7$: 


8$: 


9$: 


<6 etd 
Nu—oS 
PAH 


CALL 
RETURN 


6$ 
@CMNDER ,R° 
11% 


lena iataiea: 
#@NOUNIT RS 
i$ 


#ESWLOC,35(RO) 
8$ 
#URLOCK RG 
118 


MESPART, 5(RO) 
9% 


@PARTL,RG 
11% 


MESREC, 3(RO) 
10% 
MRECERR,R4 
118 


@SUCOTL ,R4 
LOG 


NO 

;YES- 

3;L0G 

;NON EXISTENT UNIT? 


WRITE LOCKED? 
; NO 


tYES= 
7106 


PARTIAL OP? 
;NO 


:YES@ 
;L0G 


;WRONG RECORD? 
;NO 


*YES= 
:L0G 


UNDEF INED 
3L0G ERROR 
sRETURN 


ooo 


SEQ 0059 


SD Se SR | 
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L0G / TO LOG ERROR IN CORRECT PI ACE SEQ 0060 
2406 -SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 
2407 
2408 p44 
2409 : LOG = DETERMINE IF ERROR IS FATAL, NON-FATAL OR FATAL AFTER N TRIES 
2410 3 BY INDEX (ERROR #) INTO DEVICE DATA BLOCK. ADD THE DRIVE # TO 
2411 ; INDICATE UPPER OR LOWER BYTE AND INCREMENT THAT ERROR UNLESS 
2412 3 THAT BYTE WOULD OVERFLOW. DETERMINE IF EVL FLAG SET,AN. IF SO, 
2413 : CHECK THRESHOLD (EVLTHR) AND PRINT APPROPRIATE ERROR MESSAGE 
2414 $ DESCRIPTION. ABORT THE UNIT IF INDICATED THROUGH DODROP CODE. 
2415 : INPUTS: R4& = ERROR CODE 
2416 ; OUTPUTS: ABNDX(RS5) = ERROR CODE. 
2417 3 Divi(RS) = 0 
2418 3 LSLUN = UNIT NUMBER 
2419 eo 
2420 
2421 012046 LOG:: PUSH RO 
2422 012050 PUSH R1 
2423 012052 PUSH R3 
sess 012054 PUSH RG 
2426 012056 011537 002074 MOV aR5,L$LUN 7GET UNIT NUMBER 
2427 012062 042737 177770 002074 BIC #177770,L$LUN ;MASK IT OFF 
2428 012070 010465 000004 MOV R4,ABNDX(R5) :SAVE INDEX IN CASE OF ABORT MESSAGE 
2429 012074 012703 000120 MOV #LGOFST,R3 sOFFSET TO LOW ORDER BYTE (DRIVEO) 
2430 012100 060403 ADD R4,R3 :FORM INDEX OF PARAM, TO UPDATE 
2431 012102 060503 ADD R5,R5 sFORM ABSOLUTE ADDR. THIS UNIT 
2432 012106 004737 013052 CALL WHCHOR 7SEE WHICH DRIVE T'WAS 
2633 012110 103001 BCC 23 sWAS DRIVE 0 
2434 012112 905203 INC R3 sDRIVE 1; POINT TO UPPER SYTE 
2635 012114 122713 000377 23: CMPB #255..aR3 sPOTENTIAL OVERFLOW POSSIBLE? 
2436 012120 001905 BNE LOGOK 3NO 
2437 012122 LOGO: ERRDF O.,OVRFLO,ERRDES ;VYES 
2438 012132 000512 BR ABO ; ABORT UNIT 
2439 012134 105213 LOGOK: INCB ars : INCREMENT THE ERROR 
2440 012136 111304 MOvVB OR3,R4 sTEMP'LY SAVE IT 
2441 012140 016503 000004 MOV ABNDX(R5),R3 sGET INDEX AGAIN 
2442 012144 012701 002220 MOV @RSNTAB,R1 sFORM ACRS OF MSG 
2443 012150 066501 000004 ADD ABNDX(R5),R1 sLIKE THIS 
2444 012154 042701 000001 BIC #B!T0,R1 : INSURE WORD BOUNDARY 
2445 012160 032737 000004 016154 BIT WEVL,FLGLOC sEve SELECTED? 
2446 012166 001414 BEQ LOGOK 2 ;NO-CONT 
2447 012170 123704 002216 CMPB EVLTHR,R4 sYES,OVER THRESHOLD? 
2668 012174 101011 BHI LOGOK2 NO 
2449 012176 010337 012210 MOV R3,DFTL1¢2 sYES,LOAD ERROR @ 
2650 012202 011137 012212 MOV Oki, DFTL1+4 ;AND MESSAGE ADDR 
2451 012206 DFTL1: ERRDF O,DFILT,ERRDES ;ERROR 
2452 012216 000460 BR ABO sDROP IT 
2453 012220 120327 000014 LOGOK2: CMPB R3,#BDCOM "NEVER FATAL’ TYPE? 
2454 012224 103011 BHIS NTSFT 3NO 
2655 012226 010337 012240 MOV R3,L0G142 YES, ERROR CODE 
2656 012232 011137 012242 MOV aR1,L0G1+4 sDESCRIPTION 
2457 012236 LOG1: ERRSOFT 0.,L0G1,ERRDES 
s038 012246 000450 fie L060 EMIT 
4 
24600 012250 120327 000926 NISFT: CMPB R3, @WRLOCK sONE TRY? 
2461 012254 103411 . BLO MABEE =NO, MAYBE A MULTIPLE 
2462 012756 010337 012270 MOV R3,L0G2¢2, ZYES 





GLOBAL AREAS 
LOG / TO LOG ERROR IN CORRECT PLACE 


2463 012262 
2464 012266 
os 012276 


2468 012504 
2469 012510 
2470 012312 
2471 012514 
2472 

2473 012316 
2474 012522 
2475 012326 
2476 012356 
2477 012340 
2478 012344 
2479 012350 
2480 

2481 012360 
2482 012362 
2483 012366 
2484 012370 
2485 012372 
2486 012374 


2487 012376 
2488 012400 
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011137 
0004 30 


042704 
163704 


000207 


012272 


LOG2: 


MABEE: 
1$: 


SFT: 
L0G3: 
HRD: 


LOG3B: 


ABO: 


LOGO: 


MOV 
MOV 
ERRSOFT 
BR 

MOV 
MOV 
ERRHRD 


RETURN 


@R1 ,L0G2+4 


0,L0G2,ERRDES 
ABO 


#177400,R4 
FILNM,RS 


R3,106342 
ari ,L0G3+4 


0, 0,L0°3, sERRDES 


RS. LOG3B+2 
ari. LOG3B+4 


0,L063B,ERRDES 


ars ,%% 
#177770,R0 


PRINT HARD MESSAGE 
:DRUP UNIT 


NEGATE SIGN EXTEND 


sSEE IF MULTIPLE OF 
sFILNM-YES! 


3NO 
;NOT THERE VET 


ERROR CODE 


DESCRIPTION 


sEXIT 
sHARD ERROR CODE 
;DESCRIPTION 


3GET UNIT NUMLR 
;UN@SIGN EXTEND 

;USE LOGICAL # ‘9 DROP 
sRESTORE 


RETURN 


SEQ 0061 


—- ed 


GLOBAL AREAS 








2 

2496 012402 
2497 012402 
2498 012404 
2499 012406 
2590 012410 
2501 012414 
2502 012416 
2503 012420 
2504 012456 
2505 012462 


2514 012574 
2515 

2516 012654 
517 

2518 012746 

2519 

2520 013050 

2521 





00500? 
032715 
001401 
005202 


016500 
016502 


005765 
001414 


005065 


045 
045 
103 
045 


000020 


000064 
000072 


000674 


900074 


101 


101 
101 


104 
102 
116 
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LOG / 10 LOG ERROR IN CORREC” PLACE 











 ERRDES = CONTAINS CODE FOR EXTENDED ERROR INFORMATION: DRIVE @, 
: BLOCK #, ETC. 
BGNMSG ERRDES sERROR DESCRIPTION 
PUSH RO 
PUSH R2 
CLR R2 sPRESET TO DATA TYPE 
BIT #B114,aR5 sWHAT PACK TYPE? 
BEQ 23 sDATA 
INC R2 ; COMMAND 
23: PRINTB #UNIT,<B,DR(R5)>,R2,<B,SYSTAT#1> 
MOV REC(R 5), RO sRECORD NUMBER 
MOV PATTEN(RS), R2  ;DATA EXPECTED 
PRINTB #RECID,RO, <R, CMDSNT(R5)>,<B,R2>,<B,SUCCS#1(R5) > 
TST DLV(RS) ;DLV ERROR? 
BEQ 3$ 3NO 
PRINTB #RECID2,DLV(RS) ; YES-PRINT 
CLR DLVCRS) RESET 
3$: POP R2 ;RESTORE 
POP RO 
ENDMSG EXIT 
UNIT:: rT ty /ZADRIVE® %O1%ZA PAK SENT 2%01%A FLAG RCVD 20352N/ 
EV 
RECID:: prey /%ABLOCK#® %04%A COMMAND %02%A EXPCTD %032%A SUCCESS 2032N/ 
EV 
OVRFLO: wry /CAN'T UPDATE ERROR OR STATISTIC: OVERFLOW PENDING/ 
~EVEN 
RECID2: /%A RCDB WAS 2%06%2N/ 





‘ 
See | 
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WHCHDR / SEE WHICH DRIVE 1S ACTIVE 











~SSTTL WHCHDR / SEE WHICH DRIVE IS ACTIVE 


- 44 
> INPUTS: DRO(RS) 
; OUTPUTS: CARRY=DRIVE (1 OR 0; 


WHCHDR:: CLC ;CLEAR CARRY 
TSTB DR(R5) DR 0? 
BEQ 2$ 7 YES 
SEC NG 


23: RETURN ;RETURN 


ee ET a a cS 


a 
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CHKSUM / FORM THE PACKET CHECKSUM SEQ 0064 





2541 SSBITL CHKSUM / FORM THE PALKET CHECKSUM | 

2542 

2543 344 

94} : THE CHECYSUM IS A 16 BIT CHECKSUM WITH END-AROUND CARRY. 

2546 : INPUTS: RO => (POINTS TO) TOP OF PACKET | 

3547 : Rl = # OF BYTES 

2548 > OUTPUTS: RO => WHERE TO PUT CHECKSUM 

2549 : R1 = CHECKSUM 

2550 -- 

2551 

2552 

2553 013066 CHKSUM:: PUSH R3 

2554 013070 PUSH — R2 

2555 013072 042737 000001 003300 BIC #BITO,SYSTAT “CHECKSUM IS ODD" BIT 

2556 013100 032701 000001 BIT #B110.k? [AN ODD # OF BYTES? 

2557 013104 001403 BEQ 1$ NO 

2558 013106 052737 000001 003300 BIS WBITO,SYSTAT =o: SES 

2560 013114 006001 1$: ROR RI :/2 FOR WORDS 

2562 013116 (05003 2$: CLR R3 :PREP CHECKSUM WORD 

2564 013120 062003 38: ADD (RO)+,R3 :FORM SUM 

2565 013122 005503 ADC R3 ‘WITH CARRY 

2566 013124 005301 DEC RI ‘MORE WORDS? 

2567 013126 001374 BNE 3$ ZYES 

2569 013130 032737 000001 003300 BIT WBITO,SYSTAT WAS IT ODD 

2570 013136 001405 BEQ 4$ NO 

2571 013140 112002 MOVB (RO) +, R2 “YES GET NEXT BYTE 

2572 013142 042702 177400 BIC #177400,R2 SUN-SIGN EXTEND | 

2573 013146 060203 ADD R2,R3 [ADD IT IN 

257% 013150 005503 ADC R3 [AND CARRY JUST IN CASE 

2576 013152 010301 4$: MOV R3,R1 :RETURN IT IN CORRECT PLACE 

2577 013154 POP R2 “RESTORE 

2578 013156 POP R3 

2579 0131 000207 sRETURN | 
| 
| 
| 
r] 
| 

| 


= 
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CKCKSM / MODULE TO CHECK THE CHKSUMS 


sone -SBTTL CKCKSM / MODULE TO CHECK THE CHKSUMS 

2584 yo 

2585 : MAKE SURE THE CHECKSUM RECEIVED = THE CHECKSUM CALCULATED. 
2586 s INPUTS: RG = THE PACKET BYTE COUNT 

2587 3 RO => THE PACKET 10P 

2588 : OUTPUTS: CARRY SET IF CHECKSUM CAIC'D DOES NOT EQUAL CHECKSUM SENT 
2589 : RO => THE PACKET TOP 

2590 i-- 

2591 

2592 

2593 013162 CKCKSM:: PUSH RI 

2594 013164 PUSH RO 7 SAVE 

2595 013166 010401 MOV R4,R1 :COPY BYTE COUNT TO CORRECT 
2596 013170 004737 013066 CALL CHK SUM REGISTER FOR CHKSUM AND 
1404 :FORM CHECKSUM 

teed sHERE RO ==> XMITTED CHKSUM, R1=CHKSUM CALC'D 

2601 013174 122001 CMPB (RO)+,R1 ;LOWER ORDER CHECK 

sot 013176 001005 BNE 23 WRONG 

oe 013200 000301 SWAB R1 sOK-PREP FOR 

2606 013202 122001 CMPB (RO)+,R1 HIGH ORDER CHECK 

2607 013204 001002 BNE 2% ; WRONG 

494 013206 000241 CLC sOK=CLEAR SAILING 

ty 013210 000401 BR 3% sEXIT 

soit 013212 000261 23: SEC sLET ERRGR BE KNOWN 

2614 

2615 013214 3$: POP RO 

2616 013216 PoP R1 

2617 015220 900207 RETURN ;RETURN 


LS LT 


: Sere Cee renee ane en 
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>OBRK / MODULE TO INIT TU58 AND TEST INTERRUPTS 


ety -SBTTL DOBRK / MODULE TO INIT TUS8 AND TEST INTERRUPTS 
2622 p44 

2623 ; DOBRK - SEND RADIAL SERIAL “‘BREAK'’ TO DEVICE: 

2624 $ - SET ‘BREA’ ON INTERFACE. 

2625 ; - SEND 8. NULLS 

2626 é - CLEAR “BREAK ON INTERFACE 

2627 : - SET VECTORS FOR RCV AND XMIT 

2628 Ps - SEND 2 BYTES OF “INIT” 

2629 : - RECEIVE “CONTINUE” 

2630 é - IF RECEIVE GARBAGE OR TIMEOUT = ERROR 

2631 ‘ - CLEAR INTERRUPTS AND VECTORS 

2632 ; INPUTS: @R5 BIT14 WAS SET - (SEND BREAK) 

2633 3; OUTPUTS: aRS BIT14 CLEAR IF SUCCESSFUL INIT. 

2634 ; SYSTAT#1 = RECEIVED BYTE 

2635 ; ERRORS RG = = ERROR CODE: 
2636 ; - SEND NOT READY TIMEOUT (TOS SNDB) 

2637 ; - NO RESPONSE 
2638 ; - DLV ERROR 
2639 - CAN'T INIT 
2640 i-- 
2641 
2642 013222 105037 013755 DOBRK:: CLRB IN] TwD+1 sCLEAR BYTE RECEIVE ADDR 
2643 013226 005037 015756 CLR BRKTO ;CLEAR TIME OUT CONSTANT 
2644 013232 152775 000001 00002€ BIS #BITO,axXMSR(RS) ;SET ‘BREAK’ 
2645 013240 012765 000001 %00100 MOV MRSSNIT,CMDSNT(RS) ;SAY WE SENT ‘INIT’ 
2646 013246 052715 000020 BIS #B11T4,aR5 7? 4K SENT TYPE =COMMAND, SORT OF 
2647 013252 012704 000010 MOV #8. ,R4 ;BREAK-1T°S-BACK COUNT=8 
2648 013256 1$: BREAK sSUPERVISOR TAKE FIVE 
2649 3 FOR . CHECK, ETC. 
2650 013260 105775 000026 TSTB aXMSR(RS) 7REA DY? 
2651 013264 100410 BMI 4% YES 
2652 013266 005337 013756 DEC BRKTO :NO, VIME OUT? 
2053 013272 001371 BNE i$ 
2654 013274 012704 000054 MOV #TOSNDB,R4S YES, SET ERROR CODE 
2655 013500 004737 012046 CALL LOG L0G IT 
2656 013304 000535 BR 3$ EXIT 
2657 013306 113775 013752 000030 48: MOVB BRKWD,@XMDB(RS) ;SEND NULL 
2658 013314 005037 013756 CLR BRKTO sRESET TIME OUT 
2659 013320 005304 DEC RG MORE NULLS TO SEND? 
26600 013322 001355 BNE 1$ sYES 
2661 013324 005075 000026 CLR aXMSR(RS) sNO, CLEAR *BREAK' 
2662 013330 017500 000024 MOV ARCDOB(RS),RO sHEAVE ‘GARBAGE* 1ST BYTE 
2663 013334 SETPRI] #PRIOO sSET TO INTERRUPT FO SURE 
2664 013342 SETVEC TUVECT(R'), #RCVINT, #PRIO7 ;SET VECTO INFO 
2065 013370 062765 000004 000204 ADD #4, TUVES (R5) + AND INC TO SND VECTOR 
2666 013376 SETVEC TUVECT (<5), #SNDINT, #PRIO7; AND SET iT 
2667 013424 162765 000004 000204 SUB #4, TUVECT(RS) sRESET VECTOR ADDR. 

2068 013432 005037 013756 CLR BRKTO sRESET TIME OuT 

069 913436 012704 013754 MOV MINI TWD RS sUSE ADDR. FOR SNDBYT 
2670 013442 010437 013760 MOV R4,BRKPIR sAND SAVE FOR ‘WAIT’ 
26071 013446 052775 000100 000026 BIS @BIT6,aXMSR(RS) ;ENABLE INTER, 

2672 013454 004737 013716 CALL WALT sAND ENTER LOOP 

2673 013460 005715 TST ars sABORTED FROM TIME OUT? 
2676 513462 100446 BM] 3$ SYES@EXIT 


3670 013664 005037 013756 CLR BRKTG RESET TIME QUT 





SEQ 0066 


i 
a | 

















DOBRK / 


GLOBAL AREAS 


MODULE 
013470 


013644 
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TO INIT TUS8 AND TEST INTERRUPTS 


100431 
012704 


123727 
001003 


042715 
000407 


113737 


012704 
004/737 


042775 
042775 
062765 


162765 
000207 


013754 
013760 


013755 


040000 


013755 
000032 
012044 


000100 
000100 
000004 
000004 





000026 


000022 


000020 


003301 


000026 
000022 


000204 
000204 


2$: 


3$: 


SUB 
RE TURN 


MINITWD,R4S ;SEND SECOND INIT 
R4,BRKPIR ;SAVE POINTER AGAIN 
#BIT6,AaXMSR(RS) =; AND THEN ENABLE INT 
WAIT sAND WAIT 

ars ;1f ABORTED 

3$ 3s 1HEN EXIT 

MINI TWD4+1,RS sWHERE RESPONSE WILL GO (ADDRESS) 
R4,BRKPIR :AND FOR ‘WAIT’ 
#BIT6,ARCSR(RS) sENABLE RECIEVE INT. 
WAIT sGET ANSWER 

ars ; ABORTED? 

3$ 3 VES. 


INITWD+1,#RSCONT ;NO, IS IT ‘CONTINUE*? 
2$ ;NOPE-ERROR 


#B1T14,aR5 ;SUCCESSFUL, CLEAR DOBREAK FLAG 
3% sEXIT 

INI TWD+1,SYSTAT#1 ;SAVE BUM RESPONSE 
#CNINIT,RG :CAN'T INIT CODE 

LOG 


MBIT6O,AXMSR(RS) ;CLEAR INTERRUPTS 
WBIT6,ARCSR(R5) ; AND FOR RECIEVE 


TUVECT(RS) sRELEASE °ECIEVE VECT. 

#4, TUVECT(RS) ;AND GET SEND ADDR. 

TUVECT(RS) ;AND RELEASE IT 

#4, TUVECTC(RS) sRESTORE POINTER 
sRETURN 


3;L0G I? 
sSCHEDULER WILL TRY AGAIN IF NOT ABORTED 


SEQ 0067 
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INTERRUPT SERVICE ROUTINES AND TIMER 


2711 


013646 
013646 


013654 
613660 


013662 
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042775 
112475 


042775 
017565 
116524 
005765 
100402 
005065 


000240 


020437 
001011 


005337 
001367 
012704 
004737 
000207 


000595 
004 


000 
000009 
000000 


000100 000026 
000030 


000100 
900024 
000074 
000074 


000074 


013760 


013756 


000050 
012046 


000022 
000974 


~SBITL 
BGNSRV 
SNDHND : 
ENDSRV 


BGNSRV 
RCVHND: 


108: 
ENDSRV 


WAIT: 


1$: 


BRKWD: 
INI TWD: 


BRKTO: 
BRKPTR: 


INTERRUPT SERVICE ROUTINES AND TIMER 


SNDINT 7""SEND'’ INTERRUPT SERVICE: 


BIC WBITO,AXMSP(RS) ; DISABLE INTERRUPT 
MOVB (R4)*, QaXMDB(R5) ;OUTPUT BYTE 


RCVINT :“'RCv’’ INTERRUPT SERVICE: 
BIC WBITO,ARCSR(RS) ;DISABLE INTS 
MOV @RCDB(RS) ,DLV(RS) sSAVE BYTE 


MOVB DLV(RS),(R4)* ;BYTE TO BUFFER 
TST DLVCRS) ERROR? 


BMI 10% 7YES 
CLR DLVCRS) 3NO CLEAR ERROR 
NOP 4411 LOOP FOR 
; INTERRUPT SERVICING 
CMP R4,BRKPTR ;1F=,THEN NO INTERRUPT 
BNE 1$ :GOT ONE! 
BRE AK ; SUPERVISOR BREAK 
BREAK KILL SOME TIME 
DEC BRKTO TIME OUT? 
BNE WAIT 3NO...CONT. 
MOv #TORCVB,RS YES LOAD ERROR # 
CALL LOG ;LOG IT 
RETURN ; RETURN 
~-WORD 0 :NULL 
-BYTE RSINIT 7 INIT COMMAND 
-BYTE 0 sRSCONT IS EXPECTED HERE 
~WORD 9 TIME OUT 
-WORD 0 sPOINTER TO INITWD 





SEQ 0°68 


SS | 





GLOBAL AREAS 
COMPAR/DATA COMPARISON MODULE 


4 014012 


2778 314016 
2779 314020 


2795 014134 
2797 014136 


2799 014140 
2800 014142 
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005037 


111401 
042701 


005204 


000207 
900000 
045 


014140 
000104 
902212 


177400 


000072 
014140 


014140 
002074 
177779 


000100 
000204 
014176 


1G 


002074 


003330 


- SBTTL 


com 


PAR/DATA COMPARISON MODULE 


q COMPAR - If “COMPARE DATA’ SELECTED, COMPARE EACH DATA BYTE OF PACKET 


. 
. 


> INPUTS: 


> OUTPUT 


COMPAR: : 


2$: 


4$: 


BDBYTS: 
DESC: 


TO PATTEN(RS). SAVE NUMBER OF BYTES NOT CORRECT. IF NOT 


f PRINT SOFT ERROR AND TOTAL # WRONG BYTES. SET “BAD_DATA_ 


IN_PACKET’’ BIT (BI11T6 @R5) FOR HIGHER LEVEL MODULES. 


- TCMPDAT) FLAG TO NOT COMPARE (=1) 

- PKPTR(RS) POINTS TO DATA PACK. 
S: BIT6 ORS (BAD DATA FLAG) ADJUSTED. 

L$LUN = UNIT NUMBER 

PRNSIZ = SIZE OF PACKET 
PUSH RO COMPARE DATA IS DATA PACKET 
PUSH :10 PATTERN WRITTEN 
PUSH R1 USING BYTE COUNT IN PACKET 
CLR BDRYTS CLEAR TOTAL WRONG 
MOV PKPTR(RS) RG GET TOP OF PACKET 
TST CMPDAT : COMPARE SELECTED? 
BEQ 4$ sNO-EXIT 
INC R4 :YES, LOCATE COUNT 
MOvB aR4,RI :GET IT 
BIC #177400,R1 > SIGN*UNE, TEND 

:MUST TEST BYTE*WISE... 

INC R4 :==>FIRST DATA BYTE 
CMPB PATTEN(RS),(R4)+ ;sDATA*WHAT WAS EXPECTED? 
BEQ es 7 YES 
INC BhuYTS :NO, INCREMENT TOTAL WRONG 
DEC a | MORE LEFT? 
BNE 1$ sYES 
TST BDBYTS sANY WRONG? 
BEQ 4% 3NO 
MOV @R5,L$LUN :GET UNIT NUMBER 
BIC #177770,L$LUN  ;:MASK IT OFF 
ERRSUFT 0.,MSBPA,ERRDES ;YES-PRINT "BAD DATA IN PACKET* ERROR 
PRINTB #DESC,SOBYTS 
BIS #B116,aR5 SLE” "EM KNOW UPSTAIRS=BAD DATA FLAG 
MOV #132. ,PRNSIZ :Slcc 1S ONE DATA PACK 
CALL PRNPAK sAND PRINT THE PACKET 
POP R1 sRESTORE 
POP R4& 
POP RO 
RETURN 
.WORD 
LASCIZ /RATOTAL BAD BYTES= %D3%A.%N/ 
EVEN 


SEQ 0069 


ee | 


GLOBAL AREAS 


2 
014176 
4 


014200 
014202 
014204 
014210 
014212 
014216 
014224 
014230 
014256 
014262 
014264 
014270 
014272 
014312 
0143146 
014334 
014336 
014340 


014342 
014344 
014546 


014356 


014362 
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PRNPAK/MODULE 10 PRINT DATA PACKET 


000240 


001355 
000741 


900207 
000000 
000000 

045 


045 


002210 
060104 
000020 
014344 
0033390 


014342 


117 
116 


014342 


065 
000 


-SBTTL PRNPAK/MODULE TO PRINT DATA PACKET 


-4¢ 


PRNPAK = IF PRINT_DATA_PACK_ON_ERROR SELECTED: PRINT EACH BYTE OF PACKET 


: INPUTS: PRNSIZ = # OF BYTES IN PACKET. 


: TO BY PKPTR(RS) 


; OUTPUTS: NONE 


PRNPAK:: NOP 


BR 
3$: PRINTF 
4$: POP 


LNCNT: WORD 
PRDAT: .WORD 
PRFORM: .ASCIZ 


CARLF: .ASCIZ 


ENDMOD 


PRINTS 1 PACKET 
PKPTR(RS)=>T0P OF PACKET 
sPRNSIZ (PASSED) =BYTE COUNT 


RO 
R4 
PRBUF as PACKET SELECTED? 
4 3N 
PKPTR(RS) RG sYES-GET TOP OF PACK 
#16.,UNCNT 316 BYTES PER LINE 
(R4)+,PRDAT ;AVOID SIGN EXTEND 
@PRFORM,<B,PRDAI> ;PRINT SYTE 
PRNS1Z ;ONE LESS 
3$ 3N°% MORE 
LNCNT sNEW LINE? 
sNOT YET 
#CARLF svE$ 
1$ sNEXT LINE 
#CARLF :FINISH UP 
RG 
RO 
sRETURN 
/2R03%A / 
/42N/ 


ee 


SEQ 0070 


' 
OO | 


a a ee 
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PRNPAK/MODULE 10 PRINT DATA PACKET Sea 0071 
2856 -TITLE MISCELLANEOUS SECTIONS 
3244 -SBTTL REPORT CODING SECTION 
2886 014362 B5NMOD 
2887 
2888 p44 
2889 ; THE REPORT CODING SECTION CONTAINS T 
44 : PRINTS’ CALLS THAT GENERATE STATISTICAL REPORTS. 
2892 
2893 014362 BGNRPT 
2894 014362 PUSH & 
2895 014364 PUSH R1 
2896 014366 PUSH R2 
2897 014370 PUSH R3 
2898 014372 PUSH R4 
2899 014374 PUSH RS 
2900 
2901 014376 BREAK 
2902 0144600 012737 903340 015010 MOV #BLKTBL,RPTR 3GET 1ST DEVICE BLOCK 
2903 014466 PRINTS #STATHD sKEADER 
2904 014426 BREAK 2 CHECK 
2905 014430 PRINTS #STHD2 > 2ND HEADER 
2906 014450 1$: BREAK 3“C CHECK 
2907 014452 017705 000332 MOV ORPTR,RS :GET DEVICE BLOCK 
2908 014456 032715 004000 BIT #B1T11,aR5 sUNIT NOT TESTED? 
2909 014462 001131 BNE 23 :TRUE, DON'T PRINT STATISTICS 
2910 :OK 10 PRINT 
2911 0146464 011537 015006 MOV aR5,RLUN : SAVE STATUS WORD 
2912 014470 042737 177770 015006 BIC #177770,RLUN :MASK UNIT NUM, 
2913 014476 116501 000122 MOVB SOF TR(RS),RI 3; SOF TREAD 
2914 014502 042701 177400 BIC #177400,R1  SIGN*UNEXTEND 
2915 014506 116502 000124 MOvB SOF TW(R5) ,R2 sSOFT WRITE 
2916 014512 042702 1774006 BIC #177400,R2 $ 
2917 014516 116503 000136 MOVB HARDR(RS) ,R3 ;HARD READ 
2918 014522 042703 177400 BIC #177400,R3 ; 
2919 014526 116504 000140 MOVB HARDWC(RS) RS SHARD WRITE 
2920 014532 042704 177400 BIC #177400,R4 : 
2921 014536 PRINTS #FMO,RLUN ;SUMMARY/UNIT @ 
2922 014562 PRINTS #FM,#O0,WRTNO(RS) ,RDNO(RS) ,<B,BDATA(RS)>,R1, ?2,R3,R4 
2923 014634 116501 000123 MOVB SOFTR*#1(R5),R1 3 SAME 
2924 014640 042701 177400 BIC #177400,R1 tAS 
2925 014644 116502 000125 MOVB SOFTW*+1(R5),R2 ;ABOVE 
2926 014650 042702 177400 BIC #177400,R2 s THIS 
2927 014654 116503 000137 MOVB HARDR+1(R5), R35 ;TIME 
2928 014660 042703 177400 BIC #177400,R3 sFOR 
2929 014664 116504 000141 wove HARDW+1(R5) RG DRIVE 
soa0 014670 042704 177400 BIC #177400,R4 7 ONE 
2932 014674 PRINTS #FM,#1,WRINICRS) RDNICRS) ,<B,BDATA*T(RS)>,R1 B23 RS 
2933 014746 023727 015010 003356 2%: cv RPTIR,#@LSTDEV sALL UNITS DONE? 
29346 014754 103005 Puls 3$ 7 YES 
4 44 014756 062737 000002 015010 ADD #2, RPIR 7NO-DO0 
2937 014764 000137 014450 JMP 1$ sMORE UNITS 


8 
2939 014770 3$: POP RS 





ee | 


a a ne wee re me ete ee an 0 a en ee — 2 rg 


2947 015010 


8 
2949 015012 
2950 015060 


1 
suet 015124 
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REPORT CODING SECTION 


2940 014772 
29 


000000 
000000 


045 
104 


045 


045 
045 


045 
122 





DR BLKS WR BLKS RD BDPAK 
QDCHK/RD DCHK/WR DCHK/RD DCHK/WR2NQ 


/ZAUNIT 2D1%N/ 


UNRE COV UNRECOVAN/ 





Eee eee eT. 
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INITIALIZE SECTION SEQ 0073 | 
2964 -SBTTL INITIALIZE SECTION 
2965 
2966 p44 
2967 3; THE INITIALIZE SECTION CONTAINS THE CODING THAT [S PERFORMED 
2968 ; AT THE BEGINNING OF EACH PASS. 
2969 :-- 
2970 
2971 0.3576 BGNINIT 
2972 
2973 015376 000240 INIT: NOP ; 
2974 015400 105037 016150 CLRB STRT FOR STATS CLEAR 
2975 015404 READEF @#EF.START : START COMMAND? 
2976 015412 toate iwite 
2977 015414 005237 016150 IN at SET START FLAG 
2978 015420 012737 003340 003304 INIT2: nov a DEVPTR SET ALL UNITS ABORTED: 
2973 015426 005004 CLR R4 [UNIT NUMBER 
2980 015430 017705 165650 1$: MOV QDEVPTR,RS GET POINTER 
2981 015434 010415 MOV R4,aR5 ; INSERT UNIT @ 
2982 015436 052715 120000 BIS AE tai thy ABORTED, HALTED 
2983 015442 052715 904000 BIS > ta 1,@R5 ;SET UNIT NOT TESTED 
2984 015446 006304 ASL #2 FOR LOOK-UP 
2985 015450 016465 024346 000102 MOV Bur TOL (Re). RCVBUE (RS) ;SETUP POINTER TO UNIT'S BUFFER 
2986 015456 006204 ASR R4 aa) RRECT BACK TO UNIT @ 
2987 015445 023727 003304 003356 CMP DEVPTR,@LSTDEV LAST DEVICE DONE? 
2988 015466 103005 BHIS CHECK :¥ 
2989 015470 062737 000002 003304 ADD #2,DEVPIR :NO-GET 
2990 015476 005204 INC RL NEXT DEVICE AND 
rads 015500 000753 BR 1$ : SERVICE 
2993 015502 022737 000010 002012 CHECK: CMP #8. ,LSUNIT :MAKE SURE NOT 
299% 015510 103005 BHIS GE THRD :100 MANY UNITS 
2995 015512 ERRSF 101., TOMANY sTOMANY*REQUEST °C 
4 015522 PUCLN EMT 
2998 015524 912737 003340 003304 GETHI'D: MOV #BLKTBL,DEVPTR ;INIT TABLE POINTER 
2999 015532 005004 CLR RG sCLEAR DEVICE COUNTER 
3000 015534 017705 165544 18: MOV QDEVPTR,RS 3GET STATUS WORD 
3001 015540 010437 002074 MOV R4, L$LUN sUNIT NUM. IN CASE ERROR 
3002 015544 GPHARD R4,R2 GET HARD INFO 
3003 015552 BNCOMPLETE 3% 
3004 015554 042715 004000 BIC #Bi111,aR5 UNIT 1S TESTED! 
3005 015560 012203 MOV (R2)¢,R5 sR3=CSR 
3006 015562 012265 000204 MOV (R2)¢, TUVECTOCRS) :GET VECTOR ADDRESS 
3007 015566 112265 000061 MOvB (R2)4,DRe1(R5) >SAVE UNIT SUMMARY 
3008 015572 005202 INC Ta GET TO WORD BOUND 
3009 015574 012237 016152 MOV (R2)*,PDTFLG sAND GET PDT FLAG 
3010 015600 052715 040000 BIS #B1114,ak5 ;SET SEND BREAK FLAG 
3011 0156046 032765 0600400 000060 BIT #B1T8,DR(RS) DRIVE 0? 
3012 015612 001011 BNE 13% ;YES 
3013 015614 032765 001000 000060 BIT #B119,0R(R5) sDRIVE 1? 
3014 015622 001005 QNE 13% 30K 
3015 0156246 ERRSF 102. ,NODRVS SNELTHER?! 
so18 015634 DOCLN ExT 
3018 015636 105737 016150 13$: 7S18 STR! sSTART COMMAND? 


3019 015062 0014612 BEQ 14% sNO, DONT CLEAR 
3020 SVES@C(LEAR STATS 
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MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 





SEQ C074 





3021 015644 012702 000202 MOV #BLKEND,R2 sR2<=>FND OF STATS 
3022 015650 012701 000110 MOV #WRITNO,RI FORM ADDRESS OF START: 
3023 035654 060501 ADD R5,R1 sRl-=>START OF STATS. 
soSe 015656 162702 000110 Sue #WRINO,R2 sFORM # 19 CLEAR 
3026 015662 105021 23: CLRB (R1)¢ sCLEAR ‘EM 
3027 015664 005302 DEC R2 s MORE? 
3028 015666 001375 BNE 23 3 VES 
3029 015670 042715 120000 148: BIC #BITIS'BIT13,aR5 ;SET NOT ABORTED NOT HALTED 
3030 015674 010365 000022 MOV R3,RCSR(RS) GET DEVICE REGISTERS: 
3031 015700 062703 000002 ADD #2,R3 
3032 015704 010365 000024 MOV R3,RCDB(RS) 
3033 015710 062703 000002 ADD #2,R3 
3034 015714 010365 0600026 MOV R3,XMSR(RS) 
3035 015720 062703 000002 ADD #2,R35 
3036 015724 105737 016152 TS1B PDTFLG sUNIT A PDT? 
3037 015730 001402 BEQ 4% 3NO 
3038 015732 162703 000004 SUB #4 ,R3 YES...RCDB=XMDB 
3039 0157 010365 000030 4$: MOV R3,XMDBC(RS) 
3040 015742 005065 900072 CLR PATTEN(RS) :2ZERO DATA PATTERN 
3041 015746 005065 000002 CLR RETRY(RS) :NO RETRIES 
3042 015752 005065 900064 CLR REC(RS) NO RECORD 
3043 015756 005065 000076 CLR SUCCS(R9) sNO SUCCESS 
3044 015762 005065 000074 CLR Div(R5) NO DLV ERROR 
3045 015766 005037 003332 CLR ALLGON :0K TO PRINT STATISTICS 
3046 015772 062737 000002 003304 3$: ADD #2,DEVPTR :==>NEXT DEVICE 
3047 016000 005204 INC RG [INCREMENT UNIT NUMBER 
3048 016002 020437 002012 CMP R4,LSUNIT >MORE UNITS? 
sone 016006 001252 BNE 1$ YES, GP HARD THE NEXT 
3051 016010 005037 003300 LR SYSTAT SYSTEM STATUS WORD 
3052 016014 RFLAGS FLGLOC :GET USER FLAGS 
3053 016022 005037 003324 5$: CLR BLKER NO ERROR 
3054 016026 013737 002204 003302 SETLEN: MOV LENGTH, TAPLEN GE # OF RECOR.S 
3055 016034 006237 003502 ASR TAPLEN GET # BLOCKS PER TRACK 
3056 0160460 012737 009200 003326 MOV #200, SECREC “PRESET SECOND START AT 200 
3057 016046 022737 000200 003302 CMP #200, TAPLEN 3@ BLKS > 128.? 
3058 016054 101003 BH! 3$ *NO-SWITCH TRACKS 2ND PASS 
444 016056 012737 000400 003326 MOV #400, SECREC SYES@START AT 400 
3081 
3082 016064 3$: ENDINIT 
3083 
3084 
3085 016066 124 117 117 TOMANY: meet 4100 MANY UNITS MAX,.=8 / 
eEVS 
44 016116 123 105 114 NODRVS: asih 12) /SELECT AT LEAST 1 DRIVE / 
3089 016150 000000 STRI:: FORD 
3090 016152 000000 PDTFLG:: .WORD ;Tu58 1S IN PDT 
3091 016154 000000 FLGLOC::. WORD sUSER FLAGS 





5094 
3095 
3096 
3097 
3098 
3099 016156 
3100 016156 


ooo 

wr 
o 
_— 
o 
e 


SSLESF 
o 


016266 
016306 
016310 
016314 
016316 
016320 


MORO RU Ro PRU RU Ry a ew 
FYFWNR OO OOnNO UVF WHO 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


000240 
012737 


000760 


000000 


011509 
042700 


000002 
045 
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003340 
000044 
104000 
000022 
016264 
000002 


177770 


101 


016264 


003756 
016264 


101 


5 ¢9 


; ~ AUTO DROP CODE IS INVOKED WHEN THE ADR FLAG IS SE! AND CHECKS FOR 
; A VALID INTERFACE LOCATION, 


BGNAUTO 
NOP 


1$: 


23: 


3$: 
ENDAUTO 
TRPPITR: 


ILLEGAL ADDRESS TRAP HANDLER: 


TRPHND: 


MSAUTO: 


= Lie a, #TRPHND ,#PR1O7 
#BLKTBL, TRPPTR 


8 
CLRVEC 
WORD 


PRINTF 
MOV 


BIC 
DODU 


RT] 
oASCIZ 





DROPS UNIT IF INTERFACE IS NOT THERE. 


;AUTO DROP ROUTINE 


@TRPPTR,RS 


#BiT15! BIT11, ars 


2s 
SRCSR(RS) 


GET BUS TRAP VEC. 
:GE1 TOP OF DATA BLOCK TABLE 
:GET DATA BLOCK 
;NOT TESTED OR ABORTED? 


vES 
;NO=VAL ID ADDRESS? 
YES...(TRAP IF NOT) 


elapse stat HORE TO TRY? 


3 
#2, TRPPIR 
1$ 
as 


wy 


aR5,FO 
#177770, RO 
RO 


;NO 

:0N TO NEXT 
sGET IT 

s RESTORE 


7SAY "AUTO DROPPED" 
;GET UNIT @ 

MASK IT OFF 

;DROP HIM 


/%AAUTO DROP: 2N/ 


SEQ 0075 


a in 0 a i ee ne ES 


3 
36 016540 
37 016340 


3140 016352 
3141 616354 


3161 
3162 016356 


MISCELLANEOUS SECTIONS 
CLEANUP CODING SECTION 


005737 
001004 
0057537 
001401 
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0033352 
002206 


» SBTTL 


pee 


CLEANUP CODING SECTION 


; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


‘oo 
? 


BGNCLN 

TST ALLGON 
BNE 1$ 

LES STAEOP 
BEQ 1$ 
DORPT 

ENDCLN 


sENTRANCE FROM ALL“UNITS*-ABORTED? 
SYES@EXMIT 

sNO-STATS AT EOP? 

3NO 

sVES 


SEQ 0076 


a ef 
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DROP UNIT SECTION SEQ 0077 
3165 -SBITL DROP UNIT SECTION 
3166 
3167 3¢4 
3168 ; THE DROP-UNIT Her CONTAINS THE CODING THAT CAUSES A DEVICE 
3169 ; 70 NO LONGER BE TESTED. 
3170 ;-- 
3171 
3172 016360 BGNDU 
3173 ;RO-=UNIT NUMBER 
3174 016360 PUSH RO SAVE IT 
3175 016362 PUSH R5 > SAVE PRESENT UNIT POINTER 
3176 016364 004737 016424 CALL GETRS :6 GET POINTER TO UNIT 
3177 016370 052715 120000 BIS #BI11T15'BI1115,aR5 ;SET ABORTED, HALTED 
3178 016374 POP R5 sPESTORE PRESENT UNIT POINTER 
3179 016376 PoP RO sRETRIEVE UNIT NUMBER 
Bey 016406 PRINTF #ABOMSG,RO 
3187 
3199 
3200 016422 ENDDU 
3201 016424 012737 003340 016454 GETRS: MOV #BLKTIBL,PIR -->UNIT 0 
3202 016432 017705 900016 i$: MOV aPTR,RS :GET STATUS WORD 
3203 016436 6065300 DEC 20 : CORRECT UNIT? 
3204 016440 100404 BMI ch 3 YES 
3205 016442 062737 000002 016454 ADD #2,P1R :NO,<=>NEXT 
3206 016450 000770 BR 1$ > CONTINUE 
3207 016452 000207 2$: RETURN 
3208 016454 000000 PIR: ~ WORD 


9 
ay 016456 045 101 104 ABOMSG: .ASCIZ /%ADROPPED UNIT 2D1%N/ 





en te ee A © ne DET 
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ADD UNIT SECTION 


5214 -SBTTL ADD UNIT SECTION 


15 
16 3ee 
17 : THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
18 + TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
$536 : TO THE TTST CYCLE. 


$556 016504 BGNAU 
3224 ;THE INIT CODE CONTAINS ALL CODE NECESSARY TO ADD A UN.T. 


WWAAAw 
Mmrornr 


4 
OH 016504 ENDAU 


SEQ 0078 








7 7 
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TEST 3 / DEVICE SELF=DIAGNOSTIC EXECUTION SEQ 0079 | 
Sine ~SBTTL TEST 1 / DEVICE SELF-DIAGNOSTIC EXECUTION | 
3397 016506 BGNMOD ' 
33.8 -NLIST ME,BEX 
330 9 
33 > 016506 BGNTST 
331 016506 TSTID =#TST1 
016506 012737 016552 003220 MOV #TST1,1TSTTOP SAVE ADDR OF TEST 
016514 004737 005754 CALL SETUP INIT UNITS TSTPC 
016520 904737 005602 CALL SETDR ;GET 1ST DRvS. 
016524 004737 006622 CALL RUN 390 TEST 
016530 004737 005500 CALL SWAPDR GET NEXT DRVS. 
016534 103004 BCC 64$ ;BR NO 2ND DRVS 
016536 004737 005754 CALL SETUP sREINIT UNITS TSTPC 
016542 004737 006022 CALL RUN REPEAT TEST 
016546 64$: ; DONE 
3312 016546 EXIT TST 
3313 
3314 016552 TST1:  TUSELF 
3315 016672 005237 903314 INC DONE 
3316 016676 000207 RETURN 
3317 
3318 
3319 


| 
| 
| 
! 
| 
! 
016700 ENDTST | 
| 
| 
i 
! 
| 
| 
| 
{ 
| 





ann nee ee we ae 
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TEST 2 / SEEK EOT,BOT SEQ 0080 | 
3322 .SBITL TEST 2 / SEEK EOT,BOT | 
3324 016702 BGNTST 
3325 016702 TSTID #tST2 
016702 012737 016746 003320 MOV #TST2,TSTTOP | ;SAVE ADDR OF TEST 
016710 004737 005754 CALL SETUP “INIT UNITS TSTPC | 
016714 004737 005662 CALL SETDR [GET 1ST DRVS. | 
016720 004737 006022 CALL — RIN “DO TEST 
016724 004737 005500 CALL  SWAPDR :GET NEXT DRVS. 
016730 103004 BCC 64$ ;BR NO 2ND DRVS | 
016732 004737 005754 CALL SETUP sREINIT UNITS TSIPC 
016736 004737 006022 CALL RUN :REPEAT TEST | 
016742 64$: ; DONE 
3326 016742 EXIT TST 
3327 
3328 
3329 016746 005004 1ST2: CLR RG sRG=INDEX INTO RECORD TABLE 
3330 016750 016465 017130 000064 1$: MOV RECDAT(R4),REC(R5) :GET THE RECORD | 
3332 016756 TUSEEK REC(RS),DR(RS) ;SEEK IT 
3334 017106 062704 000002 ADD #2,RG :POINT TO NEAT RECORD 
3335 017112 026427 017130 177777 CMP RECDAT(RG) ,#-1. ;LAST ONE DONE? 
3336 017120 001313 BNE 1$ :NO-LOGP | 
3337 017122 005237 003314 INC DONE =YES=SET DONE FLAG 
3338 017126 000207 RETURN 
3340 017130 000000 RECDAT: 0. ;BOT 
3341 017132 000200 200 ‘BOT OTHER TRACK 
3342 017134 000177 177 E01 
3343 017136 000377 377 sEOT OTHER TRACK 
3344 017140 000400 400 :BOT AGAIN 
3345 017142 177777 <1, 
3346 017144 ENDTS1 
| 
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TEST 3 / HIGH ACTIVITY WRITE/READ 


3308 -SBTTL TEST 3 / HIGH ACTIVITY WRITE/READ 

3351 > WRITE THEN REAN VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 

3326 : A RECORD, GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 

3354 017146 BGNTST 

3355 017146 TSTID «= #TST3 
017146 012727 017212 003320 MOV #TST3,1TSTTOP sSAVE ADDR OF TEST 
017154 004747 005754 CALL SETUP s INIT UNITS TSTPC 
017160 004737 005602 CALL SE OR sGET 1ST DRvS. 
017164 004737 006022 CALL RUN :D0 TEST 
017170 004737 005500 CALL SWAPDR ;GET NEXT DRVS. 
017174 103004 BCC 64% 7BR NO 2ND DRVS 
017176 004737 005754 CALL SETUP sREINIT UNITS TSTPC 
017202 004737 006022 CALL RUN sREPEAT TEST 
017206 64%: ; DONE 

3356 017206 EXIT TST 

3358 

3359 017212 012765 900100 000066 ITST3: MOV #100, TMPC(RS) s INIT TO HALF OF REMAINING 

3360 017220 005004 CLR R4 sFOR INDEX INTO DATA TABLE 

3361 017222 005065 000064 CLR REC(RS) sSTART AT RECORD 0 

3362 037226 016465 020522 9000072 I$: MOV TST3PT(RG) ,PATTEN(RS) sGET DATA 

3363 017234 TUWRIT PATTENCRS),Ri CC(RS) #512. ,D0R(R5) #0 

3364 020024 TUREAD REC(RS),#512.,DR(R5S) #0 

3365 020424 062704 000002 ADD #2,R4 sPOINT TO NEXT DATA 

3366 020430 005764 020522 TST TST3FT(RG) END? 

3367 020434 001402 BEQ 2$ sYES 

3368 020436 000137 017226 JMP 1$ sNO“WRITE, READ NEw DATA 

3369 020442 005004 2$: CLR R4 :PGINT TO FIRST DATA 

3370 020444 062765 000200 000064 ADD #200,REC(RS) :BUT NOW USE ADJACENT RECORD 

3371 020452 032765 001000 000064 BIT #1000,REC(R5S) :ALL ADJACENT RECORDS DONE? 

3372 020460 001002 PNE 3$ sYES 

3373 020462 000137 017226 JMP 1$ sNO-“WRITE, READ AT NEW RECORD 

3374 020466 162765 001000 060064 3$: SUB #1000,REC(RS) sRESTORE TO NEXT RECORD 

3375 020474 066565 000066 000064 ADD TMP(R5) REC(RS) sHALF INTO REST OF TAPE 

3376 020502 006265 000066 ASR TMP(R5) sHALF OF HALF FOR NEXT TIME 

3377 020506 103402 BCS 4% 3 DONE ? 

3378 020510 000137 017226 JMP 1$ NO 

3379 020514 005237 003314 4%: INC DONE rYES@SET FLAG 

3380 020520 000207 RETURN 

3381 020522 000000 TST3PT: .wORD 000000 

3382 020524 1. °"° . WORD 125252 

3383 020526 17///7 WORD 177777 

3384 020530 052525 wero =. 052525 

2385 020532 000000 word 00°00 

3386 

3387 


020534 ENDTST 


SEQ 0081 


4 
u 
4 
U 
| 
! 
| 
j 
t 
: 
: 
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TEST 3 / HIGH ACTIVITY WRITE/READ 



























3391 

44 -SBITL TEST 4 / WRITE SELECTED NUMBER OF BLOCKS 

3394 020536 BGNTST 

3595 020536 TSTID #1814 
620536 012737 020602 003320 MOV @TST4,TSTTOP SAVE ADDR OF TEST 
020544 004737 005754 CALL SETUP s INIT UNITS TSTPC 
020550 004737 005602 CALL SETDR :GET 1ST ORVS. 
020554 004737 006022 CALL RUN :DO0 TEST 
020560 004737 005500 CALL SWASDR :GET NEXT DRvS. 
020564 103004 BCC 64% ;BR NO 2ND DRVS 
020566 004737 005754 CALL SETUP sREINIT UNITS TSTPC 
020572 004737 006%22 an CALL RUN sREPEAT TEST 
020576 648: ; DONE 

3396 020576 EXIT 1ST - 

3397 

3398 

3399 020602 005065 000064 TST4: CLR REC(RS) :START AT REC 0 

3400 020606 013765 003302 01066 MOV TAPLEN, TMP(RS) :GE1 THE # OF BLOCKS PER TRACK 

3401 020614 005065 900062 CLR TRK(RS) RK(R5)=1ST OR 2ND PASS COUNTER 

3402 020620 016565 000064 000072 I$: MOV ec tks) pattenceds sUSE RECORD NO. FOR DATA 

3403 020626 005737 002214 TST DRVCHK zADD DR #? 

3404 020632 001403 } BEQ 10$ :NO 

3405 020634 066565 000060 000072 ADD DR(RS) ,PATTEN(RS) YES, ADD DRIvE ID 

3406 020642 10$: TUWRIT PATTEN(RS) REC(RS) #512. ,DRQ(R5) #0 

3407 021432 005365 000066 DEC TMP(RS) :DO ALL RECORDS FOR THIS TRACK? 

3408 021436 001404 BEQ 2$ sYES@GET OTHER TRACK 

3409 021440 005265 000064 INC REC(RS) sNO-ONTO NEXT RECORD 

3410 021444 000137 020620 JMP 1$ sEXECUTE THE WRITE 

3411 021450 005765 000002 23: TST TRK(RS) ;DONE 2 TRACKS? 

3412 021454 001012 BNE TSTGEX sYES-txlT 

3413 0921456 005265 000062 INC TRK(RS) sNO-SET FLAG FOR NEXT PASS 

3414 021462 013765 002326 000064 MOV SECRIC,RECCRS) 3GET NEW STARTING BLOCK @ 

3415 021470 013765 003302 000066 MOV TAPLEN, TMP(RS) ;RESET # OF BLOCKS 

3416 021476 000137 020620 JMP 1$ sAND EXECUTE 

3417 021£92 005237 003314 TSTGEX: INC DONE ; DONE 

3418 021206 000207 RE TURN SRE TURN 


341 
3026 021510 ENDTST 


SEQ 0082 









0 
3427 021552 


3430 021556 


3450 
3451 022274 


MISCELLANEOUS SECTIONS 
TEST 5 / READ SELECTED 


012737 


004737 


005065 


001403 
066565 


005365 


000207 


























MACRO M1110 _——r 15:55 PAGE 122 


021556 


005500 


005754 
006022 


000064 


002214 
000060 
000066 
000064 
021574 
000062 


000062 


003314 


NUMBER OF BLOCKS 


095320 


000066 
000072 


000072 


000064 
000066 


~SBITL 


2s: 


TSTSEM: 


TEST 5 / 


BGNTST 
TSTID 


EMIT TST 


INC 
RETURN 


ENDTST 


READ SELECTED NUMBER OF BLOCKS 

@1ST5 
MOV aTSTS,TSTTOP ;SAVE ADDR OF TEST 
CALL SETUP ; INIT UNITS TSTPC 
CALL SETDR :GET 1ST DRVS. 
CALL RUN 300 TEST 
CALL SWAPDR sGET NEXT DRvS. 
BCC 64% ‘BR NO 2ND DRvVS 
CALL SE TuP SREINIT UNITS TSTPC 
CALL RUN sREPEAT TES! 

643%: SOL if 

REC(RS) sSTART AT REC 0 

TAPLEN, TMP(R5) :GET THE # OF BLOCKS A TRACK 

TRKCRS) TRK(R5)=1ST OR 2ND PASS 

RECCRS), paTTENced) sUSE RECORD NO. AS DATA 

— ;ADD DR #@? 

) 


3NO 
DR(RS),PATTEN(RS) ;ADD IN DRIVE ID 
REC(RS) #512. ,DR(R5) #0 


TMP(RS) D0 ALL RECORDS THIS TRACK? 
SYES@GET OTHER TRACK 

REC(RS) sNO-NEXT RECORD 

1 EXECUTE THE READ 

TRK (RS) DONE 2 TRACKS? 

TSTSE. SYES*EXIT 

TRKCRS) sNO-SET FLAG FOR NEXT PASS 


SECREC,REC(RS) ;GET NEW STARTING BLOCK @ 
TAPLEN, TMP(R5) ;RESET @# OF BLOCKS 
1$ AND EXECUTE 
ONE ; DONE 
RETURN 


SEQ 0085 


a 




























0 
2458 022336 


3461 022342 


3480 023246 
023250 


012737 


004737 


004737 


005065 


066565 
005 365 


000207 


ote see 


005500 


095754 
006022 


000064 


002214 
000060 
000066 
000004 
022360 
000062 


000062 


003314 


003320 


000066 
000072 


000072 


000064 
000066 


» SBTTL 


2%: 


TSTGEX: 
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TEST 6 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 


TEST 6 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 


BGNTST 
TSTID =#TST6 
MOV #TST6,TSTTOP 
SETUP 


me 


SAVE ADDR OF TEST 
sINIT UNITS TSTPC 


CALL SETDR :GET 1ST DRvS. 
CALL RUN 7D0 TEST 
CALL SWAPDR 7GET NEXT DRVS. 
BCC 64% ;BR NO 2ND DRVS 
CALL SETUP sREINIT UNITS TSTPC 
CALL PUN sREPEAT TEST 
648%: : 

EXIT TST 

CLR REC (RS) sSTART AT REC 0 

MOV TAPLEN, TMP(RS) GET THE # OF BLOCKS PER TRACK 

CLR TRK (RS) TRK(RS5)=1ST OR 2ND PASS 

MOV REC(RS), PaTTENcRd) sUSE RECORD NO. FOR DATA 

TST DRvCHK ;ADD DR #? 

BEQ 108 3NO 

ADD DR(RS), PATTEN(RS) ;ADD DRIVE ID 


TUWRIT PATTEN(RS) eRECCRS) ,.#512.,DR(R5> #1 
DEC TMP(RS) 


:00 ALL RECORDS FOR THIS TRACK? 


BEO 2$ YES@-GET OTHEP TRACK 
INC REC(RS) ;NO-NEXT RECORD 
JMP 1$ sEMECUTE THE WRITE 
TST TRKCRS) ;DONE 2 TRACKS? 
BNE TSTOEX sYES@EXIT 
INC TRK(R5) sNO-SET FLAG FOR NEXT PASS 
MOV SECREC,REC(RS) [GET NEW STARTING BLOCK @ 
MOV TAPLEN,TMP(RS) ;RESET # OF BLOCKS 
JMP 1$ AND EXECUTE 
INC DONE ; DONE 
RETURN RETURN 
ENDT.! 


SEQ 0084 








T° a 
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3512 
3513 024034 ENDTST 


| 
TEST 7 / READ“REDUCED THRESHOLD SELECTED NUMBEF OF BLOCKS SEQ 0085 | 
" ne -SBITL TEST 7 / READ=REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 
3487 023252 BGNTST 
3488 023252 TSTID «= #1ST7 | 
023252 012737 023314 003320 MOV #1S17,TSTTOP SAVE ADDR OF TEST 
023260 004737 005754 CALL SETUP INIT UNITS TSTPC 
023264 004737 005602 CALL SETOR 'GET 1ST DRVS. 
023270 004737 006022 CALL RUN :DO TEST 
023274 004737 005500 CALL SWAPDR :GET NEXT DRVS. 
023300 103004 BCC 64$ [BR NO 2ND DRVS 
023302 004737 005754 CALL SETUP *REINIT UNITS TSTPC | 
023306 004737 006022 CALL RUN REPEAT TEST 
023312 648: ; DONE 
3489 023312 EXIT TST 
3490 
3491 
3492 023316 005065 000064 TST7: CLR REC(RS) START AT REC 0 
3493 023322 013765 003302 000066 MOV TAPLEN, TMP(RS) :GET THE # OF BLOCKS PER TRACK 
3494 023330 005065 000062 CLR TRK(R5) K(R5)=1ST OR 2ND PASS 
3495 023334 016565 900064 000072 18: MOV REC(RS), pattencedy USE RECORD NO. FOR DATA 
3496 023342 005737 002214 1ST DRVCHK : ADD” DR #? 
3497 0233466 001403 BEQ 10$ 3NO | 
3498 023350 066565 000060 000072 ADD DR(®S) ,PATTENC(RS) yADD DRIVE 1D | 
3499 023356 10$: TUREAD REC(RS) .#512.,DRiR5) a1 
3500 023756 005365 000066 DEC TMP(RS) D0 ALL RECORDS THIS TRACK? 
3501 023762 001404 BEQ 23 7 YES-GET OTHER TRACK 
3502 023764 005265 000064 INC REC(RS) NO-NEXT RECORD 
3503 025770 000137 023334 JMP 1$ EXECUTE THE READ 
3504 023774 005765 000062 2%: TST TRK (RS) DONE 2 TRACKS? 
3505 0246000 001012 BNE TST7EX SYES@EXIT | 
3506 024002 005265 000062 INC TRK (RS) s;NO-SET FLAG FOR NEXT PASS 
3507 024006 013765 003326 000064 MOV SECREC,REC(RS) GET NEW STARTING BLOCK @ 
3508 024014 013765 003302 000066 MOV TAPLEN,TMP(RS) ;RESET # OF BLOCKS 
3509 024022 000137 023334 mp OS SAND EXECUTE | 
3510 026026 005237 03314 TST7EK: INC DONE ; DONE 
3511 024032 000207 RETURN sRETURN | 








MISCELLANEOUS SECTIONS 


PATCH AREA 


000144 


-SBTITL 


PATCH AREA 
oREPT 1 
WORD 
«ENDR 
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SEQ 0086 
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1/0 BUFFER AREAS: SEQ 0087 


s256 -SBTTL 1/0 BUFFER AREAS: 

Re5e sWHO-GETS-WHAT=SPACE TABLE 

3526 024346 025426 BUFTBL: .WORD BUFO 

3527 024350 026464 «WORD BUF! 

3528 024352 027522 “WORD © BUF2 

3529 024354 030560 WORD BUFS 

3530 0246356 031616 WORD  BUF4 

3531 0246360 032654 WORD BUFS 

3532 024362 033712 «WORD Buré6 

ath 024364 034750 WORD BUF? 

3535 

5% .— eseeee Pee S+ + SS SS SS SSS eeaeaeaeneee ec3renree = e~-@eeeon 

ag [ONLY 1 *KANSMIT BUFFER NECESSARY: 

3539 024366 023 -BYTE RSKOFF 

3340 024567 02% -BYTE RSKOFF ;SEND XOFF BEFORE EVERY PACKET 
4 

3542 024370 TRBUF: .BLKB RCBESZ 

3543 poeeceeee coee-- were r en cnn nnn n enw en nnenenne eee rere een e ene nennennee n= 

3544 

3545 

3546 025426 BUFO: .BLKB RCBFSZ 

3547 026464 BUFI: .BLKB RCBFSZ 

3548 027522 BuF2: .BLKB RCBFSZ 

3549 030560 BLF3: .BLKB RCBFSZ 

3550 031616 BuFS4: .BLKB RCBFSZ 

3551 032654 BUFS: .BLKB RCBFSZ 

3552 033712 BUF6: .BLKB RCBFSZ 

3553 034750 BUF 7: -BLKB RCBFS2Z 

3554 

3555 poocere Seoces coccesecocooooccccooocesosossosoosssssscosesosssseseses -2e0 
5 


3556 
3557 036006 ENDMOD 





SP ES SS SSS? SS Ss -SSsSSS  SSSS vSss  S—- aes —s 











PARAPETER CODING 
1/0 BUFFER ARCAS: 


gost 036006 


2 
3633 036006 
34 


3636 036010 
3637 036020 
3638 036050 
3639 036036 
3640 036044 
3641 


3647 
7648 056052 
3649 
3650 036052 
3651 036065 
3652 036100 


3653 036131 
3654 036146 
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TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 


BGNMOD 


-+¢ 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR 10 BUILD P-TABLES. THE 


; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 


; WITH THE OPERATOR. 


BGNHRD 


GPRMA 
GPRMA 
GPRAL 
GPRAL 
GPRAL 


ENDHRD 





: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 


MSG1,0,0,160000,177777, VES 
MSG1B,2,0,0,776, VES 


MSG3,4,2,YFES 


/1U58 CSR/ 

/VECTOR ADDR. / 
/PDT (PARALLEL) INTERFACE/ 
/TEST DRIVE 0/ 
/TEST DRIVE 1/ 








ne ne me ee en ee A A 


L ? 
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SOFTWARE PARAMETER CODING SECTION SEQ 0089 | 
| 
3667 .SBTTL SOFTWARE PARAMETER CODING SECTION 
3668 pee 
3669 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
3670 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
36/1 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
3672 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
3673 : MACROS ALLOW THE SUPERVISOR 10 ESTABLISH COMMUNICATIONS 
3674 ; WITH THE OPERATOR, 
3675 ye- 
3676 
3677 036166 BGNSFT 
3678 
3679 036166 GPRMD -MSG4,0,0,1777,8.,512.,VES 
3680 036200 GPRML MSG4B,10,1,YES 
3681 036206 GPRML MSG5,2,1, VES 
3682 036214 GPRML MSG6.6.1,YES 
3685 036222 GPRML -MSG7,4,1,YES 
$685 036250 GPRMD MSGB,10.,D,377,1.254.,¥ES 
3695 036242 SFTOUT: ENDSFT 
3695 036262 «116 = s«125)=Ss«d1:15 MSG: —-WASCIZ "NUMBER OF BLOCKS:TEST 4=7 (8 10 512)' 
3696 03630? 101 104 104 MSG4B: -ASCIZ /ADD DR # TO DATA PATTERN:TEST 4=7/ 
3697 03635! 123. = 124.~=—s«d107,sSMSG5: = TASCIZ © / STATISTICS PRINTED AT EOP/ 
3698 036403 «= 103, sia117—s—«d 
3699 030630 120 122 111 MSG7: -cASCIZ /PRINT PACKET ON ERROR/ 
043 040 105 MSGB: <ASCIZ /# ERRORS = DVC FATAL IF “EVL"SET/ 


3700 036456 
3701 


| 
MSGO: eASCIZ /COMPARE DATA ON READ/ 
~EVEN 
| 
| 
{ 
| 





PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


0000 16 


000000 


000001 


MACRO M1110 O2-AUG-79 1 


LOLAST:: 





$395 


ENDMOD 


BGNSE TUP 
BGNP TAB 
176500 
300 

3 

0 
ENDPTAB 


ENDSETUP 
~END 


PAGE 156 


;LASTAD CORRECTION 
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SYMBOL TABLE 
ABNDK = 000004 G CHKANS 010112 G C$MSG = 000025 Eve = 000004 G GSRADA= 000140 
ABO 612360 CHKEND 010536 G CSOPEN= 000034 EVLTHR 002216 G$RADB= 000000 
ABOMSG 016456 CHKERR 010624 CSPNTB= 000014 EXOFF 007213 GSRADD= 000040 
AB 0063 CHKPKS 010202 CSPNTF= 000017 EXON 007212 GSRADL= 000120 
DR = 000020 G CHKPTR 01020 CSPNTS= 000016 ESEND = 002100 GS$RADO= 000020 
ALLGON 003352 G CHKREE 010676 CSPNTX= 000015 ESLOAD= 000035 GS$XFER= 000004 
ASSEMB= 000010 CHKRET 011242 ($010 = 000377 FLGLOC 016154 G G$YES = 000010 
BDATA = 000134 G CHKSUC 011536 G C$RDBU= 000007 15142 HARDR = 000136 G 
BDBYTS 014140 CHKSUM 013066 G CSREFG= 000047 FMO 015124 HARDW = 000140 G 
BOCHK = 000022 G CHK8 010132 CSRESE= 000033 FILNM 003312 HELP = 000000 
BDCOM = 000014 G CKCKSM 01 162 G C$REVI= 000003 u = 000015 HOE == 100000 G 
B110 = 900001 G CLRALL C€05660 G C$RFLA= 000021 FSAUTO= 000020 HRD 012340 
B1100 = 000001 G CLRBUF 005720 G C$RPT = 000025 FSBGN = 000040 HRDRD = 000016 G 
B1101 = 000002 G CLRPTR 005752 C$SEFG= 000046 FSCLEA= 000007 HRDWR = 000020 G 
B1T02 = 000004 G CMDSNT= 000100 G C$SPRI= 000041 FSDU = 000016 HRD1 011164 
B1105 = 000010 G CMNDER= 000040 G C$SVEC= 000037 FSEND = ¥V0041 IBE = 010000 G 
B1104 = 000020 G CMPDAT 002212 CS$TPRI= 000013 FSHARD= 000004 IDPTR 003316 G 
B1T05 = 000040 G CNINIT= 000032 G sc 014142 F$Hw = 000013 IDU = 000040 G 
B1T06 = 000100 G COMPAR 013762 G DEVPTR 003304 G FSINIT= 000006 IER = 020000 G 
B1107 = 000200 G CSNRDY 003354 G DEVO 003360 FSIMP = 000050 INIT 015376 
B1108 = 000400 G CSRCVB 003336 G DEV! 003570 FSMOD = 000000 INITWD 013754 
B1109 = 001000 G Au = 000052 DEv2 004000 FSMSG = 000011 INIT2 015420 
BIT1i_ = 000002 G CS$AUTO= 000061 DEVS 004210 FSPROT= 000021 ISR = 900100 G 
B1110 = 002009 G C$BRK = 000022 DEV4 004420 FSPWR = 000017 IXE = 004000 G 
B11T11 = 004000 G C$BSEG= 000004 DEVS 004530 FSRPT = 000012 I1$AU = 000041 
BIT12 = 010000 G C$BSUB= 000002 DEV6 005040 F$SEG = 000003 I1$AUTO= 000041 
B1T15 = 020000 G C$CEFG= 000045 Liv? 005250 FSSOFT= 000005 ISCLN = 000041 
B11T14 = 040000 G C$CLCK= 000062 DFPTBL 002172 G FSSRV = 000010 1$Du = 000041 
B1115 = 100000 G CSCLEA= 000032 DFTILI 012206 F$SUB = 000002 ISHRD = 000041 
BIT2 = 000004 G C$CLOS= 000035 DIAGMC= 000000 F$SwW = 000014 ISINIT= 000041 
BITS = 000010 G C$CLP1= 000006 Div = 000074 G FSTEST= 000001 1$MOD = 000041 
B1T4 = 000020 G C$CVEC= 000036 DOLRK 013222 G GBTMP 010106 I$MSG = 000041 
BITS = 000040 G CSDCLN= 000044 DONE 003314 G GBIMP2 010110 ISPROT= 000040 
B116 = 000100 G C$D0DuU= 000051 DR = 000060 G GETANS 006736 G ISPTAB= 000041 
B117 = 000200 G CS$DRPT= 000024 DRVCHK 002214 GETHRD 015524 1$PwR = 000041 
BIT& = 000400 G u = 000053 EF.CON= 000036 G GETPTR 007002 I$RPT = 000041 
BIT9 = 001000 G C$EDIT= 000003 EF .NEW= 000055 G CETRS 016424 I$SEG - 000041 
BLKEND= 000202 G CSERDF= 000055 EF .PWR= 000034 G GTAGIN 007224 I$SETU= 000041 
BLKER 003524 G CSERHR= 000056 EF.RES= 000037 G GIBYTE 007662 G 1$SFT = 000041 
BLKSIZ= 000210 G CSERRO= 000060 EF .STA= 000040 G GIDOWN 007534 I1$SRV = 000041 
BLKTBL 003340 G CSERSF= 000054 ERRDES 012402 G GTOK 007452 1$SU8 = 000041 
BO = 000400 G CSERSO= 000057 ESABO = 177720 G GIPKS1 007L% G I$TSi = 000041 
BRKPTR 013760 CSESCA= 009010 ESCKS = 177757 G GTPKS8 00724 G JSIMP = 000167 
BRKTO 013756 CSESEG= 000005 ESCKSM= 177757 GTPTR 00766" LENGTH 092204 
BRKWD 015752 CSESUB= 000003 ESCMD = 177720 G GTUM 007414 LGOFST= 000120 G 
BUFTBL 024346 C$ETST= 000001 ESNCRT= 177767 G GS$CNTO= 000700 LNCNT 014342 
BUFO 25426 C$EXIT= 000032 ESNOMO= 177737 G GSDELM= 000372 LCE = =: 040000 & 
BUF 1 026464 C$GETB= 000026 ESNONX= 177770 G GEN1SP= 000003 LOG 012046 G 
BUF 2 027522 C$GETW= 000027 ESOK = 000000 G GSEXCP= 000400 LOGO 0125 
BUF 5 030560 C$GMAN= 000043 ESPART= 177776 G G$HILI= 000002 LOGOK 012134 
BUF 4 031616 CS$GPHR= 000042 ESRD = 177757 G$LOLI1= 000001 LOGOK2 012220 
BUF 5 032654 C$GPLO= 000030 ESREC = 177711 G G$n0 = 000000 LOGC O12122 
BUF 6 033712 C$GPRI= 000040 ESSK = 177740 G GSOFFS= 000400 LOG! 012256 
BUF 7 03475" C$INIT= 000011 ESSLF = 177777 G GSUFS1= 000376 LOG2 012266 
CARLF 014556 C$INLP= 000020 ESTRY = 000001 G GS$PRMA= 00000! L063 012326 
CHECK 015502 C$MANI= 000050 ESWLOC= 177765 G G$PRMD= 000002 L0G3B 012550 
CHKANR 010176 C$MEM = 000051 ESWR = 17/757 GSPRM- 000000 LO1 == 000010 G 
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SYMBOL TABLE 


110002 
110003 





063356 


002220 
912572 


DDADAIQD AA ADAAAIAAADADAIAAAAAIAIAAIAAIAIAAAIAIAIAIAIAAAAAAADDADAIAAAAGAAIAAIACA CA 
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1 10004 


MXRTRY 


QoQ 
MWOWNOO F&F VW ASA NNW & 


* 


504 


MMA DFSLOSOAOOMNMAVAGCOCOLNOCO 


DAADQD| QCA 


’ 


HOQDQAAGOAADOAHAOAGA 


NCAR = 
NODRVS 
NOMCR 

NOMOT = 


v 
n 
wv 
~ 
bP °] 
nou 


™™ 
mo 
2 
—s 
te te ou 


REC 
RECDAT 


000054 


0 
017130 


‘ 
ADAAADIAAAAGAA 


cGy 


aa AQ 


DDAQ AQADAQCG 


RECERR= 


74) 
n 
mn 
@ 
xz 
i | 


015266 


DPD DAD ADADAAGAGADAGAD AAMAAAAAAG 


an 


es, 


T$NSO = 000009 
TSNS1 = 000005 
TSPCNT= 000000 


1$PTHv= 00000! 
TSPTNU= 000001 


aa 


ao a ao 


ao aa cc 


a 


$EQ 0092 


i 
ee 








PARAMETER CODING MACRO M1110 Oc-AUG-79 15:55 PAGE 136-5 

SYMBOL TABLE 

TSSAVL= 1777/7 TS$CLE= 010011 T$$SRV= 010005 17 
TSSEGL= 177777 TS$DAT= 910027 T$$SW = 0100C2 UAM = 
T$SIZE= 000006 T$$DU = 010012 TS$TES= 010022 UNIT 
TSSUBN= 000000 TSS$HAR= 10023 11 016506 G UNREC 
TSTAGL= 177777 T$$HW = 010001 TITRY = 000146 G UNSUC 
TSTAGN= 010030 TS$INI= 010007 v2 016702 G UNXPCT 
TSTEMP= 000000 TS$MSG= 010003 13 017146 G WAIT 
TSTEST= 000007 T$$PC = 000001 14 020536 G WHCHDR 
TSTSTM= 177777 TS$PRO= 010000 T4TRY = 000152 G WRLOCK= 
TSTSTS= 000001 TS$PTA= 010026 1 021512 G WRINO = 
TS$AU = 010013 TSS$RPT= 070006 To 022276 G WRINI = 
TS$AUT= 010010 TS$SOF= 010024 


- ABS. 036574 000 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 33125 WORDS ( 130 PAGES) 

DYNAMIC MEMCR1: 20508 WORDS ( 78 PAGES) 

ELAPSED TIME: 00:06:55 

CZ7TUUB.BIN/EN: AMA: ABS, C2TUUB/CR/=SP=LB1-01,1)SVC/MLB,S¥ 


70203, 220)02TUUB. MAC 


023252 G XFNSND 006416 
000200 G XMDB = 000030 
012574 G XMSR_ = 000026 
011442 XSCNT = 900036 
011040 XSFLG = 000034 
007356 XSPKNM= 000032 
013716 XSPTR = 000106 
013052 ¢ XSALWA= 000000 
000026 G X$FALS= 000040 
000110 G X$OFFS= 000400 
000112 G X$TRLE= 000020 


OS A SS Te + 


DOA AIG 


SEO 0093 | 










CZ71UUB CREATED BY MACRG ON 2-AUG-79 AT 15:5” PAGE 1 


SYMBOL CROSS REFERENCE CREF = v1 SEQ 00946 © 














SYMBOL VALUE REFERENCES 
ABNDK = 000004 #26-819 #84-2428 84-2441 84-2443 
BO 012360 84-2438 84-2452 84-2465 884-248) 

ABOMSG 016456 109-3180 #109-3210 

ABONM 0963356 *60-1626 #60-1643 60-1648 #60-1656 

ADR = 000020 G #14-567 

ALLGON 003332 G 424-787 #60-1652 #103-3045 107-3137 

ASSEMB = 000010 5-375 - 

BDATA = 000134 G #28-872 101-2922 101-2932 

BOBYTS 014140 #98-2770 *98-2781 98-2784 98-2789 #98-2799 

BOCHK = 000022 G #16-595 78-2146 78-2198 

BOCOM = 000014 G #16-592 80-2242 84-2453 

B110 = 00 001 G 414-567 48-1467 72-1987 84-2444 90-2555 99-2556 90-2558 90-2569 94-2644 

B1T100 = 000001 G #14-567 14-567 

81101 - 000002 G #14-567 14-567 

B1102 = 000004 «4 #14-567 14-567 

B1103 = 000010 G #14-567 14-567 

B17046 = 000020 G #14-567 14-567 

B1.95 = 000060 G #14-56" 14-567 

B1106 = 000100 G 414-567 14-567 

B1107 = 000200 G #14-567 14-567 

B1T08 = 000400 G #14-567 14-567 

B1109 = 001000 G #16-567 14-567 

B1T1 = 000002 G 414-567 60-1617 66-1793 72-1988 76-2087 80-6230 80-2299 

B1T10 = 002000 G #14-567 0-1613 62-1723 80-2248 80-2268 80-2276 80-2297 118-3565) =——118=3465 
118-3364 120-3406 120-3406 122-3437 124-5468 126-3468 126-3499 

BIT11 = 004000 G #14-567 101-2908 103-2983 103-3004 105-3104 

B1T12 = 010000 G ft Hie . 118-3363 118-3363 118-3363 120-3406 120-3406 120-3406 124-3468 124-3468 

4-346 

81713 = 020000 G #14-567 103-2982 103-3029 109-3177 

BIT14 = 040000 G #14-567 60-1632 60-1635 78-2159 7B-2171 94-2694 103-3070 

B1115 = 100000 G #14-567 48-1465 68-1835 68-1857 PU=1893 70-1910 7021930 7U21941 7622095 
80-2234 103-2982 103-3029 =: 105 = 3104 109-3177 

BlT2 = 000004 G #14-567 2-1989 

B113 = 000010 G #14-567 72-1990 

BIT4 = 000020 G #14-567 62-1717 62-1721 72-1991 86-2500 94-2646 

BITS = 000040 G 414-567 62-1739 62-1741 72-1992 

BIT6 = 000100 &G #14-567 72-1993 80-2239 80-2300 94-2671 946-2679 94-2686 9422702 9402708 
96-2715 96-2723 98-2790 

Bl17 = 000200 G #14-567 22-1994 80-2268 80-2276 80-2282 80-2284 BI=2 286 BO\229? 

B118 = 000400 G #14-567 5J-1500 62-1727 62-17%6 8D=2261 80-2290 105-3011 

B119 = 001000 G #164-567 48-1469 6221711 80-2245 80-2272 B2-2355 103=3015 

BLKEND = 000202 G #28-892 103-302 

BLKER 003324 G #264784 #62-1708 #103-3053 

BL.KSIZ = 000210 G #28-896 30-918 30-919 30-920 30-921 30-922 30-923 Me dl4 Beg eS 

Bi KTBL 003340 G #30-906 48-1463 50-1497 52-1522 56-1565 60-1611 60-162? Pet BS! Pmegids 
101-2902 103-2978 103-2998 105-3102 109"5201 

B0t = 000600 G #14-567 

BRKPTR 013760 94-2670 * 94-2678 #94-2685 96°.7%36 896-2750 

BRKTO 013756 £94=2643 *94-2652 ©9464-2658 094-2668 £94226 76 0922749 BIR M274 

BR«KwWD 013752 94-2657 496-2746 

Buf TEL 026 346 105-2985 #150-3526 


. 25426 130-3526 @ 30-3546 





ee 



















— ot et 
1 

— 

_ 

Nm 


ed 
Ww 
o 
ce 
eo 


000022 


000006 
000002 


CREATED BY 
CROSS REFERENCE 


aoc ac 


OOQO AQ Aaa 


REFERENCES 
130-3527 


MACRO ON 2-AUG-79 AT 15:57 


#130-3547 
#130-3548 
#130-3549 
#130-3550 
#130-3551 
#130-3552 
#130-3553 


80-2241 


80-2252 
92-2596 
120-3406 


#76-2093 
78-2179 
66-1796 

454-1540 
52-1523 


107-3162 


94-2704 
60-1653 
84-2483 
167-3161 
109-3200 
5-418 

84-2637 





#100-2839 
#76-2103 
#80-2228 


#78-2126 
76-2098 


80-2244 
882-2334 
114-3314 
120-3406 
78-2192 
66-1799 


52-1525 
82-2 341 


898-2767 


60-1651 


94-2706 
103-2996 
105-3126 


84-045) 


PAGE 2 
CREF 


# 76-2300 
80-2247 


116-335 


122°3457 


992-2595 


©5221527 
82-2345 


64-1768 


105=31i2 
103-3016 


vol 


#76=2105 
80-2251 


118-3563 
37 


122234 


#5421550 
82-2358 


74920466 


80-2269 


118-3363 
124-3468 


BH--506 


94-2648 


80-2277 


118=3365 
124-3468 


09G2e7645 


9622758 


80-2285 


118-3564 


124-4468 


Whe 2739 


80-2287 


118-5564 
126-3499 


1O122903 


SEQ 0095 — 












| | 


CREATFD By 
CROSS REFERENCE 


014142 
003304 G 


003360 


MACRO UN 2=AUG-79 AT 15:57 


REFERENCES 
95-375 


#26842 
74-2053 





84-2464 


60-1650 
84-2457 


193-3002 


103-3082 


86-2515 
80-2274 


80-2250 


103-2975 
#5-375 


101-2945 


94-2663 
94-2664 


#98-2800 


830-924 
#30-925 


#84-2450 
5-375 
68-1855 

74-2054 





84-2679 


103=2995 
84-2475 


116-3346 
116-3326 


86-2503 


80-2255 


94-2666 


60-1612 
103-2987 


884-2451 


70#1932 
#74°2056 


PAGE 3 


CREF = v1 


103=3015 
98-2 788 


118-3588 
1° 8-3356 


86-2506 
100=2630 
101-2921 
86-2258 


105-3101 


60-1621 
*103+2989 


84-245! 


711965 
7B-2 161 


120=3420 
120-3396 


86-2509 
105=3121 
101*2922 
80-2260 


960-1623 
#103=299R 


#74"202? 
Ba=2507 


122-3451 124-3482 
12223427 =: 124-3458 
98-2789 

109-3180 

191-2932 

80-228! 80-2289 
*60-16277 60-'n28& 
103-3000 ©1043-3046 
7422028 74-2029 
86-2509 286-2519 


126-5513 
126-3489 


6021644 = #0" 1446 


» y\e,) 
eee, 
. 


Ihe, ae 


#740203! 


e902 "24 


SEO 0096 








CZ7Tuus CREATED BY MACRO ON 2-AUG-79 AT 15:57 PAGE 4 
SYMBOL CROSS REFERENCE CREF v0} SEQ 0097 | 
SYMBOL VALUE REFERENCES 
96-2726 = 96-2728) ~=—s #10 3-3044 
LOBRK 013222 G 60-1636 #94=2642 
DONE 003314 G 4 pth 56-1564 58-1584 -#116=3315) 0116-3327) ©6118-3379 0120-3417 «8122-54468 9 1246-35479 
& = 
OR = ¢00060 #26-835 48-1467 48-1469 #48-1471 #50-1499 50-1500 50-1502 86-2503 88-7554 
#103-3007 103-3011 103-3013) =. 116-3332) s-118=3363 ) 3=-«1118 3363 =. 1118-3564) =—s«*1118=353564 = s:« 120 3405 
120-3406 120-3406 122-3436 =. 1223437) 0=— 122-3437) 0 = 124-3467) =—-1246= 3468 = «1124-3468 =. 1 26 = 34698 
126-3499 126-3499 
DRVCHK 002214 813-495 120-3403 12223636 = 124-3465) —s« 126 = 3496 
EF.CON = 000036 G #14-567 
EF.NEW = 000035 G #14-567 
EF.PWR = 000034 G #14-567 
€F.RES = 000037 G #14-567 
EF.STA = 000060 G #14-567 103-2975 
ERRDES 012402 G 84-2437 84-2451 84-2457 84-2464 84-2475 84-2479 886-2496 98-2788 
ESABO = 177720 G #18-661 
ESCKS = 177757 G 418-672 18-674 18-675 18-676 82-2553 
ESCKSM = 177757 #18-674 
—ESCMD = 177720 G #18-670 82-2376 
ESNCRT = 177767 G #18-662 82-2371 
ESNOMO = 177737 ¢& #18-669 82-2348 
ESNONX = 177770 G #18-663 82-238! 
— SOK = 000000 G #18-664 82-2536 
ESPART = 177776 G #. 3-665 82-2391 
ESRD = 177757 O1B ire 
ESREC = 177711 G #18-671 82-2596 
ESSK = 177740 G #18-666 82-2366 
ESSLF = 177777 G #18-673 
ESTRY = 000001 G #18-667 82-2339 
ESWLOC = 177765 G 418-668 82-2386 
ESWR = 177757 418-675 
EVL = 000004 G 414-567 84-2445 
EVLTHR 002216 #13-496 84-2447 
EXOFF 007213 #68-1870 70-1950 74-2039 
€XON 007212 68-1826 #68-1869 70-1905 74-2047 74-2059 
ESEND = 002100 #5-375 
ESLOAD = 000035 45-375 5-418 
FLGLOC 010154 G 84-2445 ©#103-3052 #103-3091 
7 015142 101-2922 10°%=2932 #101-2955 
FmO 015124 101-2921 #101=2952 
FTLNM 003312 #24-779 84-2668 
f SAU = 000015 85-375 11123222 )3=-11 11-3245 
FSAUTO = 000020 45-375 105-3099 = 105-3113 
F$8GN = 000040 #5-375 5-401 7-426 18-507 14-560 86-2496 96-2713 96-2721 100-2842 
101-2886 101-2893 101-2961 10$-2971 105-3099 =. 107#3136 0 )=—- 10983172.) 11343222) 1143307 
114-3310 116423312 11423319 11623326) 3=—- 1163526) 11693346) 118-3356) 118-3356) 118-3588 
12023394 12023396 1203420 12223425 12223427 122-345 12623456 =. 1 43458) = 124" 5482 
126-3487 12623689 12623513 130-3557 132-5622 132-5635 8=0134"3677?) = 1 56=37%5 136-3716 
1386-3717 = 13623717 =: 13623722) 1 86 = 3723 
t$CLEA - 000007 #5-375 167-3136 107-3162 
F$DuU = 060016 a5-375 109-3172 109-3200 
F SEND = 000041 a5-375 5-375 5-375 52375 52375 52775 52375 52575 5=h75 




























CZ uUuB CREATED BY MACRO ON 2-AUG-79 AT 15:57 PAGE $5 
SYMBOL CROSS REFERENCE CREF v01 SEQ 0098 
SYMBOL VALUE “i. 


ww 

™N 

> 
a a wa 


f 
“" 


622 


y 
PON AANA 


000004 
000013 


3326 )=—s- 118-3356 —s 12 
07 14-560 10 


_ 
ef 
_ 
z 
-_ 

-~ 
uuh tw t 
o 
o 
Oo 
$ 
2k Re 


* 427 = 124-3458 


3 1 
000000 #5-375 5-401 -2886 101-2961 114-3307 150-3557 
000011 85-575 86-2496 86-2513 


000021 85-375 7-428 7-432 
000012 #5-375 101-2893 101-2945 


000005 #5-375 134-3677 = 134-5693 
000010 #5-375 96-2713 96-2717 96-2721 96-2730 


) 

| 

| 

| 

| 

| 

| 

} 

| 

000014 #5-375 13-489 1°=505 | 
000001 #5-375 114-3310 114-3319 = -116=3324)—-116*3346 1183254 =—-118=338B8 = 11203394: 120 3420 
122-3625 122-3451 124*3456 9124-3682) 126"3487 =: 1263513 

GBIMP 010106 #76=20238 «= #742033) #742043 74=2044 *74°2063 #74=2069 
| 





~~” 
ad 
n 
7 
nennnn nnn 
So 
So 
So 
=] 
° 
w 
& 
w 
‘ 
w 
~ 
w 


GBTIMP2 010110 #742038 74-2049 74-2051 = # 74-2058 74-2061 #742070 
GE TANS 006736 G 58-1586 #66-1792 
GE THRD 015° %%4 103-2994 #103-2998 


GE TRS 016424 109-3176 #109-3201 

GTAGIN 007224 #70-1892 70-1956 

GIBYTE 007662 G 68-1834 68-1854 70-1909 70-1929 70-1940 = #742023 

G1DOWN 007534 70-1896 70-1900 70-1913 79-1924 70-1928 70-1931 70-1935 70*1942 70*1946 
70-1948 #70-1952 

GTOK 007452 70-1917 = #70+1937 





GTPKS! 007004 G 66-180! #68-1621 
GTPKS8 007214 G 66-1797 = #70-1890 70-1959 
GTPTR 007660 *70-1891 70-1892 7021953 = #701955) #72"1997 


GTUM 007414 70-1922 =#70-1926 


qo 
bd 
Le] 
_ 
u“" 
wv 
nh uhh tw 
; Oo 
So 
So 
So 
o 
wa 
& 
Fa] 
. 
a 
™N 
wn 


000400 #5-575 132-3636 «=. 132-3637 = 132-3638 = 132"3039) = 13293040 =: 1134"5679 = 1 34"3680) = 134 568! 
134-3662 136-3685 154-3685 

= 000376 95-375 13223636 049-132-3637) 0=— 182-8638 = 13223659) = 13285640 = 134-5079) = 13425680) =— 1 84= 5681 

134=3685 134-3685 


a 
oe 
o Ss 
— = 
Ww ~~ 
- yn 

‘ " 


134-3682 



















SYMBOL VALUE 
GSPRMA = 000001 
GSPRED = 000002 
GSPRML = 00000 
GSRADA = 000140 
GSRADB = 000000 
GSRADD = 000040 
GSRADL = 000120 
GSRADO = 000020 
GCSKFER = 000004 
GaYES = %0001 
HARDR = 0001 
HARDW = 000140 
HELP = 000000 
HOE = 100000 
HRD 012340 
HPDRD = 000016 
HRDOWR = 000020 
HRD1 011164 
1BE = 010000 
1DPTR 003316 
1Du = 000040 
1ER = 020000 
INIT 015376 
IN] TWD 013754 
INIT2 015420 
ISR = 000100 
IKE = 004000 
1$AuU = 000041 
1$AuTO = 000041 
ISCLN = 000041 
1$Du = 000041 
1SHRD = 00004' 
ISINI1 = 000041 
18moD 3 =6= 000041 
18MSG = 000041 
1$PROT = 000040 
1sPTaB = 000041 
1$PeR - 000041 
1SRPT = 000041 
18SEG = 000041 
ISSETU = 000041 
1$S*1 - 000041 
1$SRv = = 000041 
1$SuB == 000041 


CREATED BY 
CROSS REFERENCE 


OOOH AQ a 


an 





REFERENCES 
#5-375 


101-2886 
8152- 3622 


#134-3677 
a5-375 
a5-575 


132-3636 
134-3679 
132-3638 


111-3231 
132-3656 


884-2677 
80-2292 
80-2294 

#80-2288 


#56-15¢" 


94-2669 
#103-2978 


#1'1=3222 
#105-3099 
#107-3136 
#109-3172 
#152-3648 
#103-2971 


"13623717 


#101-2893 
114-3310 
136-3716 

#134-3693 

096-2713 

1146-3310 





MACRO ON 2-AUG-79 AT 15:57 


#101-2848 
#112-3251 
134-3686 


56-1566 
94-2677 


#111-3245 
#105-3113 
#1073162 
#1093200 


#1035-3082 
#5-401 
101-2961 
#136-3714 
#86-2513 
#136-3717 
#101-2945 
116-2324 
#136-3716 


#962717 
116-3324 


PACE 6 
CREF = =v0l 
152-3640 


132-5640 


132-3658 


112-3292 
136-3707 
56-1568 


94-2684 


13-507 
#101-2961 


136-3722 


134-3480 


134-3680 


132-3659 


112-5298 


*56-1570 


94-2691 


#13-507 
1°4=3307 


#146-3722 
120-3394 
136-3723 


#96-2730 
120"3394 


134-3681 


134-3681 


132-3640 


9-450 
32-953 
48-1423 
107-3143 
130-3558 


94-2697 


14-560 
#114-3307 


122-3425 
#3 36-3723 


12223425 


reo re 


134-3682 


134-3682 


134-5679 


11-473 
32-961 
48-1629 
107-3150 
130-3563 


#96-2747 


#14-560 


134-3683 


154-3685 


134-3680 


13-498 
32-968 
48-1437 
109-3182 
130-3573 


100-2842 


13023557 #130-3557 


124-3456 


12423456 


126203487 


12605487 


134-3681 


#14-512 
32-975 
48-1444 
109-3188 

#132-3584 


8100-2842 
132-3622 


SEQ 0099 


ee 





CZ7Tuus CREATED BY MACRO ON 2-AUG-79 AT 15:57 PAGE 7 | 
SYMBOL ChUSS REFERENCE CREF v01 SEQ 0100 | 
SYMBOL VALUE REFERENCES 
1$3S1T = 000041 #5-375 116-3310 9 #1146-3310 114-3312 11623319 #1146-3319 #1146-3319 116-3324 8116-3524 
116-3326 116-3346 116-3346 #116-3346 118-3354 8118-3354 118-3356 118-3388 #118-3588 } 
#118-3588 120-3394 #120-3394 120-3396 120-3420 8120-3420 #120-3420 122-3425 8122-3425 
122-3427 122-3451 #122-3451 #122-3451 126-3456 8124-3456 124-3458 124-3482 8124-3482 i 
4126-3482 126-3487 #126-3487 126-3489 126-3513) #126-3513 8126-3513 
JSJMP = 00016; 45-375 | 
LENGTH 002204 #1 3-491 103-3054 i 
LGOFST = 000120 G #28-863 = 84-2429 | 
LNCNT 014342 #100-2821 *100-2826 #100-2835 
LOE = 040000 G #14-567 i 
LOG 0120466 G 64-1774 74-2067 78-2147 78-2164 73-2173 78-2199 80-2243 80-2266 80-2295 
82-2402 #84-2421 94-2655 94-2699 96-2743 
LOGO 012370 84-2458 84-2476 884-2484 
LOGOK 012134 84-236 #B4=2439 
LOGOK2 012220 84-2446 84-2448 884-2453 
LOGO 012122 984-2457 | 
LOG! 012236 #84-2455 *B4-2456 #84-2657 84-2457 
LOG2 012266 ©8464-2462 *B4-2465 884-2464 84-2464 
L0G3 012326 ©8464-2473 #84-24674 484-2475 84-2475 
L0G3B 012350 ©B4-2677 #B4-2478 «—#B4=2479 = BL- 2479 
LOT = 000010 G #14-567 
LSTDEV 003356 G #30-913 48-1473 50-1503 52-1525 56-1568 60-1621 60-1644 70-1953 76-2098 
101-2933 103-2987 105-3108 
LSacP 002110 G 45-418 
LSAPT 002036 G 45-418 t 
L$AU 016504 G 5-418 #111-3222 | 
LSAUT 002070 G #5-418 
LSAUTO 016156 G 5-418 #105-3099 
L$C"P 002106 G 45-618 
LSCLEA 016340 G 5-418 #107-3136 
L$cO 002032 G #5-418 
iLSDEPO 002011 G 45-418 | 
LSDESC «= 002122 -G 5-418 #5420 
LSDESP 412076 G #5-418 | 
LSDE VP 2060 G 45-418 
L$D1SP 002152 G 5-418 #9-448 | 
LSDLY 002116 G #5-418 } 
LSDTP 002040 G 45-418 | 
LSDTvP 002034 G #5-418 { 
L$Du 016360 G 5-418 #10%-3172 
t$puT 002072 G 45-418 
LSdvTy 005460 G 5-418 #32-946 
LSEF 002052 G 45-418 
LSENVI 002044 G 45-418 
LSETP 002102 G 45-418 
LSEXP?! 002046 G #5-418 I 
LSEXPS = 002004 GS #5-418 
LSE XPS 002066 G #5-4618 
LSHARD 036010 G 5-418 13223633 0 #132-3633 
LSHIME 602120 G a5-418 
LSHPCP 002014 G #5-418 
LSHPTP 002022 G #5-418 











CREATED BY 
CROSS REFERENCE 


G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 


056052 


MACRO ON 2-AUG-79 AT 15:57 PAGE 8 
CREF vol 
REFERENCES 
5-418 11-466 #11-466 
45-418 
5-418 #103-2971 
45-418 
B wt) #136-3713 3=136=3723 
#5-418 #B4=2426 *84=2427 #98-2786 *98-2787 #1033001 
#5-418 
#5-418 
45-418 
5-418 #7-42E 
#5-418 
#5-418 
45-418 
5-418 #101-2893 
5-418 174-3677 8134-3677 
#5-418 
#5-418 
#5-418 
#5-418 
5-418 13-489 #13-489 
#5-418 
#5-418 
45-418 103-2993 105-3048 
11-466 #11-479 
13-489 #13-505 
#86-2513 
#96-2717 
#96-2730 
#101-2945 
#103-3082 
#105-3113 
#107-3162 
#109-3200 
#111-3265 
W4-3312 8114-3319 
116-3326 #116-3346 
118-3356 #118-3388 
120-3396 #120-3420 
122-3427 #122-3451 
126-3458 #124-3482 
*26°3489 #126-3513 
132-3633 #132-3648 
134-3677 #134-3693 
#136-3717 
136-3717 #136-3722 
84-2461 #84-2467 
105-3121 #105-3126 
#22-717 98-2788 
20-701 #22-739 
20-691 #22721 
132-3636 #132-35650 





SEQ 0101 


oe SN AS 


“ 


eS ng ee 
















8 
CREATED BY MACRO ON 2-AUG-79 AT 15:57 PAGE 9 
SYMBOL CROSS REFERENCE CREF = v01 SEQ 0102 
SYMBOL VALUE oo 3 4 i 5 
MSG1B 036063 132-3637 #132-3651 
MSGIC 036100 132-3638 #132-5652 
MSG2 03613! 132-3639 #132-3653 
MSGS 036146 132-3640 #132-3654 
MSG4 036242 134-3679 9 #134-3695 
4SG4B 036307 134-3680 #134-3696 
MSGS 036351 134-3681 #134-3697 
MSG6 036403 134-3682 #134-3698 
MSG7 035430 134-3683 #134-3699 
MSG8 036456 1354-3685 #134-3700 
MSHCHK 002550 G 20-694 #22-731 
MSHDRD 003146 G 20-692 #22-755 
MSHDWR 003210 G 20-695 #22-757 
MSNIT 002612 G 20-698 #22-73 
MSNLOG 002314 G 20-685 20-689 #22-715 
MSNOMO 002440 G 20-697 #22-72 
MSNOTP 002456 G 20-707 #22-725 
MSNRSP 002756 G 20-705 #22745 
MSOVRN 003252 G 20-690 #22-759 
MSPART 002626 G 20-699 #22-735 
MSQRSP 602772 G 20-706 #22-747 
MSREC 002712 G 20-702 822-741 
MSRNIT 002530 G 20-688 #22729 
MSSELF 002356 G 20-703 #22719 
MSSFRD 003046 G 20-686 #22-751 
MSSFWR 003106 G 20-687 #22-753 
MSSKER 002300 G 20-695 822-713 
MS1OSN 003024 G 20-706 22-749 
MSUNIT 002650 G 20-700 #22-737 
MSWPRO 002506 G 20-696 #22-727 
MSURSP 002732 G 20-704 822-743 
MKRTRY 0033522 G 824-783 80-2278 
NCART = 000054 G #16-608 82-2375 
NODRVS 016116 103-3015 #103-3087 
nwOMOR 006340 60-1650  #60-1657 
nomoT = 000030 G #16-598 82-2350 
NOUNIT = 000036 G #16-601 82-2383 
NOXOF F 0004 30 #62-1701 
NISFT 012250 84-2454 #84-2460 
NXTRET 006534 60-1620 60-1649 #60-1654 
NXTST 006052 G 58-1582 #60-1611 
NXTST2 006156 60-1622 #60-1626 
ONEFIL = 000001 #2-4 2-8 4-356 5-357 5-396 13-508 14-509 14=522 100-2844 
101-2845 101-2858 = 111235247) Vc 32468) 1° 293259) 151-357 132-3580 = 132=3594 

OTL = 000052 G #16-607 78-2160 
OvRFLO 012746 84-2437 #86-2518 
OvRN = 000012 G #16-591 78-2163 
OSAPTS = 000000 #5-375 5-418 
O$AU = 000001 #5-375 95-408 5-418 
O$°GNR = 000001 #5-375 #5-408 5-418 
O:8GNS = 000001 #5=375 #5-408 5-418 

= 000001 #5-375 5-418 








; 
' 
ee | 


a 


! 
i 
ween eee 















Hh nun He 


000072 
016152 


003310 
001036 


000024 
003306 


000064 


017150 


000002 


DAG HAGHGAAG a DOAQGQAAAAAIG Aa oo ao aa 


aa 


CREATED BY MACRO ON 2=AUG-79 AT 
CROSS REFERENCE 
L 


REFERENCES 
#5-375 


120-3406 


60-1647 
*62-1712 


100-2818 
100-2823 
#100-2837 


94-2665 


94-2664 
#100-2813 
#98-2791 

109-3202 
*68-1832 
*78-2135 

54-1543 

130-3553 

74-2027 
*68-1853 

78-2172 

74-2025 

54-1542 


996-2721 


#103-3041 





15:57 


5-418 
#5-408 

5-418 

98-2779 


#124=3464 
#103-3090 


70-1908 


#100-2836 


94-2666 


*100-2824 

*109-3205 

*68-1843 
78-2142 
130-3542 


74-2052 
68-1839 


74-2041 
62-1712 


101-2922 

101-2932 

86-2504 
*118-3370 
#120-3414 


#116-3340 


80-2250 


PAGE 10 
CREF 


vol 


#5-40 
136- 3713 

*103-3040 
#124-3467 


70-1947 


105-3101 


#109-3208 

*68-1848 
78-2204 
130-3546 


94-2662 
*70-1902 


94-2686 
68-1829 


80-2255 





#5-408 


*118-3362 
124-3468 


# 70-1949 


#68-1852 
130-3547 


96-2724 
70-1916 


94-2705 
78*2127 


*80-2267 


#5-408 


3 


118-336 
126-3495 


1 
26- 


#78-2133 


#70-144 
150-3548 


*103-3032 
*78-2136 


96-2725 
#1032985 


*80-2275 


#5-408 


#1203402 
#126-3498 


98-2771 


*70-1921 
130-3549 


#103-3030 


80-2278 


5-408 


#120-3405 


100-2820 


#70-1925 
150-3550 


105-3106 


118-3563 

12 
#122-3440 

126-3495 


*80-2280 


5-418 


120-3406 


#70-1927 
130-3551 


118-3363 
120-5406 
#122-3445 
126-3499 


80-2281 














CREATED BY MACRO ON 2-AUG-79 AT 15:57 


SYMBOL or REFERENCE 


PAGE 11 | 
CREF = v0l SEQ 0104 


( 
4 
' 


SYMBOL VALUE REFEREN 

RLUN 015006 #101-2911 =#101-2912 =101-2921  #101-2946 

RPTR 015010 #101-290 101-2907 =: 101-2933) #101-2935 #1012947 

RSCAND = G 418-627 18-633 62-1718 114-3314 116-3332 116-3332 «118-3363 =—-118-3363 = 1118-3364 
118-3364 120-3406 =120-3406 §= 122-3437 122-3437 = 124=3468 =: 124-3468 = 126-3499 = 126 5499 

RSCONT = 000020 G #18-628 78-213 94-2691 118-3363 = 118-3363 = 120-3406 §=—. 1120-3406 §= 124-3468 = 124 3468 

RSDASZ = 000204 G #18-640 18-642 18-645 68-1848 78-2177 78-2184 

RSDATA = 000001 G #18-632 68-1846 70-1923 70-1947 78-2154 78-2175 118-3365 118-3363 118-3564 
118-3364 120-3406 120-3406 122-3437 122-3437 = 124-3468 = 124-3468 = 126 3499 = 126 5499 

RSDNSZ = 000222 G #18-642 70-1925 

RSEND = 000002 G # 8-635 68-1841 70-1919 78-2149 78-2187 114-3314 118-3363 118-3363 118-3564 
118-3366 120-3406 120-3406 122-3437 122-3437 = 124-3408 = 124-3468 = 126-3499 =: 126 3499 

RSINI' = 000004 G #18-631 78-2169 96-2747 

RSMSIZ = 000012 G #18-638 18-644 114*3314 114-3314) -116-3332)) 116-3332 =: 118-3363) =—-118-3363 = 118-3365 
118-3363 9118-3364 «9118-3364 «= 118-3364 = 1118-3364 = 120-3406 = 120-3406 = 1120-3406 §=: 1120-3406 
122-3437 9 122*3437 = 122*3437 = 122-3437 124"3468 = 124-3468 = 124-3468 = 124-3468 = 126 5499 
126-3499 = 126-3499 =. 1126 = 3499 

RSNDSZ = 000016 G #18-636 18-642 18-645 68-1843 70-1921 114-3314 1163332 118-3363 118-3363 
Ae ties 118-3364 120-3406 120-3406 122-3437 122-3437 124-3408 124-3468 126-3499 

RSNTAB 002220 #20685 84-2442 

RSSEND = 000100 G #18-651 

RSSNIT = 000001 G #18-656 94-2645 

kSSNOP = 000000 6G #18-655 

RSSNSZ = 000016 G 418-644 78-2190 114-3314 116-3332) 118-3363 = 118-3363 = 118-3364 =: 118-3364 = 120 3406 
120°3406 122-3437 122-3437 = 124-3468 = 124-3468 = 126-3499 126-3499 : 

RSSRD = 000002 G #18-653 62-1725 82-2341 118-3563 118-3364 118-3364 120-3406 122-3437 122-3457 
124-3468 126-3499 126-3499 

RSSSEK = 000005 G 418-654 116-333< 

RSSSLF = 000007 G #18-657 82-2358 114-3314 

RSSWR = 000003 G #18-652 62-1734 82-2345 118-3363 =120-3406 124-3468 

RSVP 006364 G #62-1093 114-3314 116-3332 = 138-3363) 118-3363 =. 1118-3363) =—-118-3364 =: 1118-3364 = 1200 = 3406 
120-3406 120-3406 122-3437 122-3437 124-3468 124-3468 124-3468 126-3499 126-3499 

RSXOFF = 000023 G #18-635( 68-1870 130-3539 130-3540 

RSXON = 000020 G 418-629 68-1869 

RTRYN 011422 80-2250 80-2281 #80-2312 

RUN 006022 G #58-1582 58-1591 114-3311 114-3311 -116-3325 116-3325 = 118-3355 = 118=3355 =: 120-3395 
12023395 122-3426 = 122-3426 = 124-3457 = 124-3457 = 126-3488 §=—- 126-3488 

SECREC 003326 G #24~785 #103-3056 *103-305 12023414 122-3445 124-3476 126-3507 

SERVST 007656 #6671795 70-1957 = # 72-1982. #72-1996 

SETDR 005602 G #50-1497 114-3311 9 116*3325 118-3355) = 120-3395 §=— 122-3426 = 124-3457 = 126 35488 


SETLEN 016026 #103-3054 
SETPTR 005656 *50-1497 50-1498 50-1503 *50-1505 #50-1508 
SETSRV 007572 70-1895 70-1899 = #72-1972 
SETUP 005754 G 456-1564 17493311) 0 114-351" 16-3325 9116-3325) 118-3355 = 118-3355 = 120-3395 =: 120-3395 
122-3426 9 12"3426 3=— 1243451 = 124=3457 = 126-3488 =: 126 = 3488 
SFPTBL 002204 G #13-489 
SFT 012316 84-2470 39 #842473 
SFIRD = 000002 G #16-588 80-2263 
SFTWR = 000004 G #16-589 80-2265 
SKF RR 090024 G #16-596 82-2368 
000044 G #16-604 82-2565 
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CZ1uU8 
SYMBOL CROSS REFERENCE 


SYMBOL 


SvCSUB 
SVCTAG 


SvCTST 


SWAPDR 
SWPTR 
SYSTAT 


$$. SYM 


TAPLEN 


THRSHI 
THRSLO 
TMP 


CREATED BY 


VALUE 


777 
777 


— 
~N 
~~ 


177777 


005500 G 
005600 
003300 G 


010000 


003302 G 


011370 
011342 


- 000006 6 


MACRO ON 2-AUG-79 AT 15:57 


REFERENCES 
86-2503 


848-1462 
#48-1463 
#24-766 
86-2503 
a@5-375 
#107=3162 
#120-3513 
824-775 
124-3477 
80-2260 
80-2258 
#20-839 
0122-3466 


#109-3200 
#7 32-3648 
#103-3054 

126-3493 
#B0-2310 
#B0-2308 
118-3359 
0124-3462 


86-2503 


#103-3055 
126-3508 


118-3575 
#124°3469 


PAGE 15 
CREF vO! 


86-2503 
86-2506 


#114-3319 
*03-3057 


# 118-3376 
0324-3477 


86-2503 


#116-3546 
120-3400 


#1203400 
#1 2625493 





a ae 


86-2503 
86~2506 


116-3324 
122-3425 


122-3426 

76-2087 
#103-305i 
896-2730 
#118-3388 


120-3415 


120-3407 
0126-3500 


86-2503 


1 
96- 
1 
1 
1 
1 
1 


116-3324 
122-3425 


124-3457 
#78=2134 


101-2945 
#1693420 


V22—3451 


aratl el Bi 
e} 2625508 


86- $205 


134-3681 


116-3324 
122-3425 


126-5488 
80-2230 


#103-3082 
#1222345) 


122234466 


#1022543) 


86-2503 


134-3682 
134-5685 


86-2513 

16%=2945 
107-2162 
114-3319 
120-3420 
126-3515 
136-3717 


118-3554 
124-3456 


#80=2299 


105-3113 
#1 24-3482 


are Ble 


SEQ 0106 











































CZ 1UU8 


$C ODE 


TSEREN 


CROSS REFERENCE 


CREATED BY 


oO 
oO 
c] 
oO 
vw 
Co 
aoc 


024370 


000062 G 
016266 


000062 


= 005052 


- 000146 





MACRO ON 2=AUG-79 AT 


REFERE 
105- 5905. 


132-3640 
#134-3680 

134-3681 
#134-3683 

136-3685 
a5-375 
BB4-2464 





#105- -3085 


#126-3494 
#105=-3121 
105-3103 
#56-1567 
56-1567 
#1146=3314 
#116-3329 
#118-3359 
118-3366 
#120-3399 
#120-3417 
#122-3430 
4122-3448 
#124-3461 
#1264-3479 
#126-3492 
#126-3510 
94-2664 


98-2789 
#101-2921 


#132-3640 

134-3680 
#134-368) 

134-3683 
#134-3685 
#60-1650 
84-2464 





15:57 


96-2742 
94-2654 
62-1707 
120-3406 
124-3468 
120-3411 
126-3504 


105-3108 
60-1619 
#114-3311 


#118-3381 


#94-2665 


#5-418 

#5-418 
80-2250 
80-2258 


#101-2922 
#101-2932 
101-2932 
#109-3180 
#132-3636 
132-3637 
#132-3639 
132-3640 
#134-3680 
154-3681 
#134-3685 
134-3685 
60-1650 
#8422475 


PAGE 14 
CREF = v1 


114-3314 
120-3406 
126°3499 
#120- 

*126-3506 


#105-3110 
60-1640 
#116-3325 


94-2666 


#1012921 


132-3639 
#134-3679 
134-3680 
#134-3682 
134-3683 


884-2437 
8492475 


116-3532 
120-3406 
126-3499 
122-3432 


#105-3114 
62-1694 
*118=3355 


#94-2667 


5-418 
5-418 
#802255 
80-2260 
80-2281 
86-2505 
86-2506 
86-2509 
#100-2823 
#101-2903 
191-2921 
101-2922 
al0le- 2922 


#109-3180 
#132-3656 


#1 34-3683 


8422637 
#RG"2479 


B- 
0-3406 
0 
2 


#129-3595 


94-2704 


101-292 
#101-2922 
101-2922 
101-2932 
#101-2932 
109-3180 
132-3636 
#132-3638 
132-3639 
#134-3679 
134-3680 
#1 34-3682 
134-3683 


#84-265) 
84-2479 


118-3363 
122-3457 


#122-5444 


#122-3426 


#94-2705 


5-418 

5-418 
#86-2255 
#80-2274 


#122-3637 
132-3638 
#1322640 
134-3679 
#1 34-3681 
134-3682 
#1 34-3685 


84-245) 
#98-2788 


118-3363 
122-3437 


#124-3465 


#124-3457 


94-2706 


5-418 
5-418 
80-2255 
80-2274 
BU-2289 
86-2503 
#86-2506 
98-2789 
#100-2828 
#101=2905 
101-2922 
#101-+2922 
#101-2932 
101-2932 
101-2932 


132-3637 
#132-3638 
132-3640 
@' 34-3679 
134-268) 
#1 34-3682 
134-3685 


984-245? 
98-2 788 


118-3563 
124-3468 


124-3473 


#126- 5488 


#94-2707 
#5-418 


#101-2932 
#105=3°2) 


8132-3637 
132-3638 
#152-3640 
134-3679 
#134-368! 
134-368. 
#1 34-3685 


Boeres! 
B10 522995 


SEQ 0107 — 









C7 1UuUu8 
SYABOL 
SYMBOL 


TSTAGi 


CREATED BY 


CROSS REFERENCE 
VALUE 


00000 
000040 


036574 


010000 


000007 
177777 


000000 


000005 


000000 


177777 


MACRO ON 2-AUG-79 AT 15:57 


 ihesest’ @ 


103-2995 
#132-3656 
#116-3312 
#118-3356 


136-3713 
#5-375 
#132-3636 
#5-375 
Abe -3636 


#118-3354 
126-3513 
#136-3716 
#136-3717 
5-418 
#5-375 
#5-375 
#5-375 
136-3713 
a5-375 
#5-375 


#1356-3723 
#114-3310 


8132-3637 
136-3716 
#132-3637 


#86-2513 
896-2721 
#100-2842 


ee a et ad et 


#134-3677 

#136-3714 

#14-560 
107-3162 


#11-466 
96-2730 

#420-3394 
132-3648 

#136-3717 


#136-3717 


#1 16-3424 


132-3637 
132 3637 


134-3693 


5-401 
#11-466 
13-505 
#14-560 
96-2713 
96-2721 
101-2886 
#101-+2945 
103-3082 
#105-3113 


-479 
1-2893 
0-3420 
4°3677 
6°7717 


136-3723 


ai t8-4554 


#134-3679 
#116-5326 
#120-3396 

124-3458 


9134-3679 


#134-3679 
86-2513 
114-3319 


#101-2886 
109-3200 


#13-489 
101-2945 


122-3425 
134-3693 


136-5723 


12093394 


134-3679 


134-3679 
96-2717 
116-3346 


#7-428 


#103-3082 
#107-3156 


#120-3394 
122-3451 
124-3482 
130-3557 
132-3633 
134-3693 


12223425 


#134-3685 
116-3326 
120-3396 

#126-3489 


#134-35685 


134-3685 
96-2730 
118-3588 


7-428 
11-479 
#13505 


#86-2496 
114-3319 
#124-3456 


a! o425G56 


134-3685 
116-3525 
#1223427 
#126-3489 


134-3685 


134-5685 
101-2945 
120-3420 


7-432 
11-479 
13-507 
86-2696 
96-2717 
296-2730 
#101-2893 
#101-2961 
#105-3099 
107-3162 
109-3200 
114-3307 
#114-3319 
#118-3554 
120-3420 
122-3451 
126-3487 
120-3557 
132-3648 
#134-3693 


103=3082 
#114=3507 


86-2515 


#116-3324 
12427482 


21260548? 


nn ee 


#118-3356 
9122-3427 
126-3489 


120-3420 
#122-3451 
4126-3487 
#130=-3557 

132-3648 

136-3714 


#105-3099 
130-3557 


896-2713 
116-3346 
#1 26-5487 


$fQ 0108 | 





























TSTEMP 


TSTEST 


TSTSTM 


TSTSTS 


TSSPTA 


rhuh & ot wh we 


tt 


CREATE 
CROSS REFERE 
VALU 


LUE 
010030 


000000 


00007 


177777 


000001 


010026 





REFERENCES 
#5-375 
#13-489 
#96-2721 
#105-3099 
#111=-3222 
4118-3354 
41246-3456 
#134-3677 
#136-3717 


#100-2842 
105-3113 
#114-3319 


@132-3637 
132-3638 
#132-3649 
134-3679 
#134-3681 
134-3682 
#134-3685 
136-3714 


#111-3222 
#105-3099 
#107-3136 
#136-3717 
#109-3172 
#132-3633 
#11-466 

#103-2971 


#7-428 
#136-3716 


#132-3639 
132-3640 
#134-3679 
134-3681 
#134-3682 
134-3685 


114-3310 


3 
136-3723 
136-3717 


: MACRO ON 2-AUG-79 AT 15:57 


136-3716 


89-448 
99-448 
49-448 
13-507 
#101-2945 
107-3162 
#116-3326 
120-3396 
#124-3482 
132-3636 
#132-3637 
132-3639 
#132-3640 
134-3679 
#134-3681 
134-3682 
#134-3685 


#714-3310 


#120-3394 
#126-3487 


136-3722 


132-5648 
11-479 


#1%6-3717 


PAGE 16 
CREF 


v01 


#7-428 

986-2496 
#101-2893 
#107-3136 
#114-3310 
#120-3394 
#1 26-3487 
#136-3716 


#132-3636 
132-3637 
#132-3639 
132-3640 
#134-3680 
134-3681 
#1 34-3685 
134-3685 


114-3310 
120-3394 
126-3487 


3 
#101-2961 
109-3200 
#116-3346 
120-3420 
#126-3489 
132-3636 
#132-3638 
132-4639 
#132-3648 
134-3680 
#134-3681 
134-3683 
#134-3685 


116-3324 


#134-3680 
134-3681 
#134-3683 
134-3685 


#116-3324 
122-3425 


64-1768 


#11-466 
496-2713 
#1032971 
#109-3172 
#116-3324 
122-3425 
#132-3633 
#136-3717 


9-448 

9-443 
ai1-479 

96-2717 
#103-3082 


#134-3682 
134-3683 
#134-3693 


116-3324 
122-3425 


74-2046 


MmN OO 


5 
#124-$456 


13-489 


#132-3637 
132-3658 
#132-3640 
134-3679 
#134-3680 
134-3682 
#134-3683 
134-3693 


118-3354 
124-3456 


8u-2250 
84-2457 
94-2648 
98-2789 
101*2921 
103-3016 
107=3162 
118-3388 


126-3687 


15-489 
96-2721 
105-3099 
111-3222 
118-2354 
124-3456 
134-3677 
136-5717 


99-448 
89-448 
#13-505 
96-2739 
#105-3115 


132-3637 
#132-3638 
132-3640 
#134-%679 
134-3680 
#134-3682 
134-3683 
#136-3714 


#118=-3354 
#124-3456 


80-2255 
84-2464 
94-2663 
100-2825 
101-2922 
103-$052 
109=3180 
120-3396 








CZ71TuUUs CREATED By 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
TSERPT = 010006 
TSSSOF = 010024 
TS$SRv = 010005 
1$$Sw == 010002 
TSSTES = 010022 

11 016506 G 
TITRY = 000146 G 
12 016702 G 
1 017146 G 
14 020536 G 
T4TRY = 000132 G 
1 021512 G 
16 022276 G 
17 023252 G 
UAM = 000200 G 
UNIT 012574 G 
UNREC 011442 
UNSUC 011040 
UNKPCT 007356 
wall 013716 
WHCHOR 013052 G 
WRLOCK = 000026 G 
WRTNO = 000110 G 
WRTN1 = 000112 G 
KF NSND 006416 
xMDB = 000030 G 
KMSR = 000026 G 
xSCNT = 000036 G 
KSFLG = 000034 G 
KSPKNM = 000032 G 
XSPTR. = 000106 G 
X$ALWA = 000000 
XSFALS = 000040 
x$OFFS = 000400 
MB$TRUE = 000020 





REFERENCES 
#101-2893 
9134-3677 
996-2715 

#13-489 

#112 -3310 
#120-3394 
#126-3487 


#267348 


nO 
— NN —$WOAWO 


#12225 425 
#126-3456 
#126-3487 


#86-2514 
#80-2314 
#80-2271 


94-2680 
62-1742 
82-2388 
#62-1744 
*62-1747 


64-1776 
64-1765 


#114-3314 
*124-3468 
62-1713 
118-3364 
*124-3468 
62-1709 
78-2128 
*120-3406 
*124-3468 
*62°1715 


MACRO ON 2-AUG=-79 AT 15:57 


94-2687 
84-2432 


101-2932 


94-2657 
94-2644 


*116-3332 
#124-3468 


118-3364 
#124-3468 
*62-1709 
#114-3314 
#120-3406 
* 126-3499 

70-1902 


PAGE 17 
CREF = v1 


96-2730 


#116-3324 
4122-3425 


#96-2734 
#88-2532 


103-5022 
96-2716 
94-2650 
*118-3365 
78-2129 


"116-3332 
tab or 
#126-349 

7001908" 





9 


= 
Nm 
i 
cade 
fw 
MP 
No 


96-2741 

103-3024 
*103-3039 
94-2661 
*118-3363 
#114-3314 
*120-34096 
0118+ 3363 
*120-3406 
70-1904 


116-3346 9 #118-3554 


122-3451 


94-2671 
*118-3363 


#116-3332 
#120-3406 
126-3499 
#70-1901 
118-3363 
#122-3437 


#70-1952 


4124-3456 


94-2679 
#120-3406 


#118-3563 
120-3406 


#70-1912 
#11§-3365 
#1225437 


118- 3356 
124-3458 


94-2762 
#120-3406 


*118-3365 
122-3437 


#70-1918 
#118-3365 
#124=3468 


118-5388 
124-3482 


96-2715 
#120-3406 


*118-3363 
122-3437 


70-1934 
#118=3364 
#124-3468 


SEQ 0110 


ee | 

















C27 1UUB CREATED BY MACRO ON 2-AUG-79 AT 15:57 taal 18 
CRE 


RACRO CROSS REFERENCE vor sea O1NT | 


BGNMOD 5-401 14-560 101-2886 8 =6114=3307 = 132 3622 


BGNSRV 96-2715 96-2721 
BGNTST 114-3310 «116-3326 = 118-3354 = 120"3394 = 1223425 124=3456 = 126-5487 
BNCOMP 103-2976 103-3003 


BREAK 58-1588 60-1651 64-1768 74-2046 94-2648 96-2738 96-2739 101-2901 1012904 101-2906 
CLRVEC 94-2704 94-2706 105-3112 


-2996 #103-3016 
3124 


2 
ENDMOL 13-507 100-2842 101-2961 130-3557 136-3714 


ENDSRV #96271" #96-2730 
ENDTST 11423315 116-3346 = -118-3388 = 120-3420) §=—- 122-3451 124-3482 1265518 
ERRDF 84-2457 84-2451 


ERRHRD 984-2464 884-2479 
ERRSF 60-1650 8103-2995 #1053015 
ERRSOF 84-2457 84-2475 98-2788 
ExIT 911423312 #1163326 8118-3356 120-3396 122-3427 = 8124"5458 8126-5489 
GPHARD 105-3002 
GPRMA #132-3636 0 #132-3637 
154-3679 §=134=3685 










71uuB CREATED BY MACRO ON 2-AUG-79 AT 15:57 PAGE 19 
CREF = v0l SEQ O112 





















if 
MACRO ae REFERENCE 


MACRO NA REFERENCES 
GPRAL 8132-3638 8132-3639 8132-3640 8134-3680 8154-3681 8134-3682 4134-5683 
HEADER -418 
LASTAD 136-3713 
MSBYTE -418 -418 85-418 95-418 
MSCHEC 116-3312 «= 114-3312) #1163326) »=—- 116-3326) 118-3356) =: 118-3356 120-3396 §=—.:120-3396 «122-3427 = 1122-3427 
9124-3458 124-3458 #126-3489 126-3489 
MSCNTO 132-3636 «=. 132-3636 0 -#132-3637 = 332-3627) «132-3638 3=—- 132-3638 «132-3639 «=. 132-3639 8132-35640 152-3640 
At spat +244 ft rea 194 #134-3680 134-3680 #134-3681 134-3681 9134-3682 134-3682 #134-3683 154-3685 
MSCOUN #80-2250 80-2250  #80-2255 80-2255 #80-2258 80-2258  #80-2260 80-2260 #80-2274 80-2274 
#80-2281 80-2281 #80-2289 80-2289 #86-2503 86-2503 86-2503 86-2503 #86-2506 86-2506 
86-2506 86-259 86-250 #86-2509 86-2509 #£98-2789 98-2789 #100-2823 100-2825 #100-2828 
100-2828 #100-2830 100-2830 #101-2903 101-2903 #101-2905 101-2905 #1012921 101-2921 #101-2922 
101-2922 101-2922 101-2922): 101-2922. 101-2922. )-:101-2922 )=—- 101-2922 }=—-:1101-2922 «#101-2932 =: 101-2932 
+ Lg 101-2932 101-2932): 101-2932.) 101-2932): 101-2932) )=—- 1101-2932 8105-3121 105=3121 #109-5180 
MSDATA 45-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 
5-418 5-418 5-418 5-418 5-418 5-418 #5-418 5-418 5-418 5-418 
5-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 
5-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 5-418 #5-420 
5-420 #32-946 32-946 
MSDECR 47-432 7-432 #11-479 11-479 #13-505 13-505 #13-507 13-507 #86-2513 86-2513 
#96-2717 96-2717 #96-2730 96-2730 #100-2842 100-2842 #101-2945 101-2945 #101-2961 101-2961 
#103-3082 103-3082 #1053113 105-3113 #107=3162 «107-3162 «4109-3200 = 109-3200 = #111-32465) =—111-3245 
#1163319 —- 114-3319 #1163346 =. 116-3346) 4118-3388 =. 118-3388 «120-3420 = 120-3420 «#1223451 122-3451 
#126-3682 124-3482 #126-3513 = 126-3513) -#130-3557 «=: 130-3557 1352-3648 = 132-3648 «154-3693 = 134-3695 
#136-3714 =: 136-3716) «136-3717 = 136-3717 
MSDEFA 4132-3636 8132-3636) « #132-3637 8132-3637 «132-3638 «132-3638 «4132-3639 «1352-3639 «8152-3640 & 32-5640 
Hf nal 24 AE maa oe #136-3680 #134-3680 8134-3681 4134-3681 8134-3682 4134-3682 4134-3683 8154-3685 
MSENDE #11-479 13-505 #13-507 986-2513 «896-2717 = 896-2750 «=. #100-2842 «101-2945 8101-2961 #103-3082 
#105=3113 #107-3162 -#109=3200 4111-3245 #1143319 8116-3546 118-3388 «8120-5420 #122-3451 8124-5482 
#126-3513 #1303557 #132-3648 8134-3693 4156-3714 
MSERR] #60-1650 860-1650 884-2637 884-2637 884-2451 9884-24651 9 #B4=24657 = 842457 = BBA 2464 = BG 2464 
986-2675 «= #B4=24675 «= #B4-2479 «= #B4-2479 »=—s #9B-2788 = #9B-278B = # 103-2995 103-2995 #105-3015 #105-3015 
MSEKCP abt ak ot raid ot 132-3636 132-3637 «=. 132-3637) = 132-3637 «8134-3679 =: 134-3679 =: 1134-3679 «154-5685 
-36 4e 
MSEXKIT #1163312 114-3312 116-3326 «=. 116-3326 «118-3356 «= 118-3356 120-3396 «=: 120-3396 «122-3427 = 122 = 3427 
0126-3458 124-3458 #126-3489 126-3489 
MSE KSE 8116-3312 8116-3326 8118-3356 8120-3396 8122-3427 «8124-3458 9 8126-3489 
MSEXTJ 8116-3312 8116-3326 8118-3356 8120-3396 8122-5427 «98124-3458 9 8126-3489 
MSGEN #5-418 -418 #5-418 #5-418 85-418 85-418 85-418 85-418 #5-418 85-418 
45-418 45-418 45-418 #5-418 05-418 45-418 85-418 #5-418 #5-418 a5-418 
#5-418 45-418 45-618 #5-418 05-418 #5-418 #5-418 05-418 a5-418 #5-418 
#5-418 #5-418 85-418 45-4618 85-418 45-418 85-418 #5-418 #5-418 #5-418 
#5-418 #5-418 #5-418 #5-418 45-4618 #5-418 85-418 #5-418 #5-418 a5-418 
45-418 #5-418 5-418 45-418 05-418 #5-418 45-418 #5-418 85-418 #5-418 
05-418 45-418 #5-4°8 45-418 #5-418 #5-418 #5-418 85-418 #5-418 a5-418 
45-418 45-418 #5-41c #5-418 #5-418 85-418 #5 -420 #5-420 #72428 #7-428 
99-448 99-448 #11-466 #11-466 #11-466 #11-466 #@11-479 #11-479 #13-489 #1 3-489 
815-489 813-489 #13-505 #15-505 #32-946 832-946 #86-24696 886-2496 «= #BO- 2513 = #BO= 2515 
99692713 «9-96-2713 #9692717 89642717 «= #92721 89692721) 89H=2750 — 9HH2780 #1012895 a! O1-289% 


eee eee ne neeteewseeeemeem eat et te CO TC CCC CE A OL OL CL LS LCC, CC Ce 


C27 1uu8 


CREATED BY 


MACRO CROSS REFERENCE 


MACRO NAME 


MSGETS 


MSGETT 
MS$GNGB 


MEGNIN 


#111-32465 
6118-3354 
#122-3451 
4132-3633 
#136-3717 


9124-3482 
#136-3714 
#114-3312 


#111-3222 


#5-418 


984-2664 
84-2475 


#103-2971 


#114-3307 


5-418 


84-2464 
#84-2479 


MACRO ON 2-AUG-79 AT 15:57 


#96-2730 

#105-3113 
#116-3346 
#126-3513 


#118-3356 
45-418 


986-2496 
#103-2971 


#132-3622 


5-418 
#5-418 


84-2479 


#103-2971 
#107=3162 
#114-3310 
#118-3388 
9124-3456 
#132-3648 
gt wt Ge 


116-3346 
126-3513 


#120-3396 
#5-418 


#86-2496 
#105-3099 
#132-3655 


#80-2289 
#84-2437 
84-2451 
984-2464 
#842475 
84-2479 


PAGE 20 
CREF 


v01 


#103-3082 
#109-3172 
#114-3319 
#120-3394 
4124-3482 
134-3677 


#13-505 

#100-2842 
#107-3162 
#118-3388 
#130-3557 


#122-3427 
#5-418 


#105-3099 
#132-3633 


5 
884-2479 


#103-3082 
#109-3172 
9116-3319 
#120-3594 
#124-3482 
#134-3677 


130-3557 


#124-3458 
#5-418 
#5-418 
#5-4618 
#5-418 
#5-418 
#5-418 
#5-418 
#5-418 
#11-466 
#96-2713 
#107-3136 
#134-3677 


#60-1650 


84-2479 


#105-3099 


4134-3693 


#13-507 

8101-2945 
#109-3200 
#120-3420 
#132-3648 


#126-3489 


80-2281 
484-2437 
#84-2451 

84-2457 
084-2464 

84-2475 
#84-2479 


#105-3099 
#109-3200 
#116-3324 
#120-3420 
#126-3487 
#134-3695 


13-507 


132-3648 


45-418 
#5-418 
#5-418 
#5-418 
#5-418 
45-418 
#5-418 
#5-420 
#13-489 
#96-2721 
#1NQ=3172 
4136-5713 


B4-2479 


486-2515 

#101-2961 
#111-3245 
#122-3451 
4134-3695 


#5-418 
95-418 
#5-418 
#5-418 
#5-418 
45-418 
5-418 
#5-420 
#13-489 
#101-2886 
#109=3172 
#136-3715 


#84-2479 


SEQ 0113 


#105-3113 
#111-3222 
#116-3346 
#122-3425 
#126-3513 
#136-3713 


86-2515 


134-3693 


5-418 
#5-418 
#5-418 
45-418 
#5-418 
85-418 
#5-418 
#7-428 
#14-560 
#101-2893 
#111-3222 


84-2479 


C7 1uUUs CREATED BY MACRO ON 2-AUG-79 AT 15:57 PAGE 21 
MACRO CROSS REFERENCE CREF = v01 SEG O16 | 
MACRO NAME REFERENCES 
984-2683 884-2483 84-2683 886-2503 #86-2503 86-2503 86-2503 #80-2505 86-2503  #86-2503 
86-2505 86-2505 #86-2505 86-2503 #86-2505 86-2505 86-2503 #86-2503 86-2505 86-2505 
#86-2506 #86-2506 -2506 86-2506  #86-2506 86-2506 86-2506 #86-2506 86-2506 86-2506 
#86-2506 86-2506 #86-2506 86-2506  #86-2506 86-2506 86-2506  #86-2506 86-2506 86-2506 
#86-2509 #86-2509 86-2509  #86-2509 86-250 #86-2509 86-2509 86-250 #86-2509 86-2509 
86-2509 #86-2515 86-2513 894-2648 94-2648 #94-2663 94-2663 894-2663 94-2663 894-2664 
994-2664 94-2664 894-2664 94-2664 894-2664 94-2664 #94-2664 94-2664 894-2664 94-2664 
94-2664 894-2666 #94-2666 94-2666  #94-2666 94-2666 894-2666 94-2666 #94-2666 94-2666 
#042666 94-2666 94-2666 #94-2704 94-2704 #94-2704 94-2704  #94-2706 94-2706 #94-2706 
94-2706 #96-2717 96-2717 #96-2730 96-2730 #96-2738 96-2738  #96-2739 96-2739 #98-2788 
998-2788 98-2788  #98-2788 98-2788  #98-2788 98-2788  #98-2788 98-2788 #98-2789 #98-2789 
98-278 #98-2789 98-2789 #98-2789 98-2789 98-2789 #98-2789 98-278 98-278 #100-2825 
#100-2822 100-2823 100-2825 9 #100-2823 100-2823 =#100-2823 §=100-2823 + = 100-2825 #100-2823 100-2823 
100-2623 #100-2828 #100-2828 100-2828 #100-2828 100-2828 100-2828 #100-2828 100-282 100-282 
#100-2830 #100-2830 100-2830 #100-2830 100-283 100-2830 #100-2830 100-2830 100-2830 #101-2901 
101-2907 #101-2993 #101-2903 101-2903 #101-2903 101-2903 101-2903 #101-2903 101-2903 101-2903 
#101-2904 101-2904 #1012905 #101-2905 101-2905 #101-2905 101-2905 101-2905 #101-2905 101-2905 
101-2905 #101-2906 101-2906 #101-2921 #101-2921 §=101-2921 4101-2921 §=—101-2921 «101-2921 §=—:101-2921 
101-2921 #101-2921 = 101-2921 101-2921) -#101-2922 8101-2922 §=—101-2922 8101-2922 101-2922 8101-2922 
101-2922 #101-2922 101-2922 #101-2922 =101-2922 = 101-2922 8101-2922 101-2922 #101-2922 101-2922 
#101-2922 = 101-2922 #101-2922 §=—-:101-2922 ) -#101-2922 §=—101-2922 = 101-2922 «8101-2922 =: 101-2922 §=—: 101-2922 
#101-2932 #101-2932 = 101-2932 101-2932 §=—-101-2932  #101-2932 §=—:101-2932 8101-2932 =—101-2952 8101-2932 
101-2932 101-2932 #101-2932 =: 101-2932) -#101-2932 §=—-:101-2932 «8101-2932 =—101-2952 «8101-2932 =: 101-2932 
#101-2932 = 101-2932 101-2932 #101-2932 =: 101-2932 = 101-2932 8101-2965 101-2945 = #1035-2975 105-2975 
#103-2975 103-2975 #103-2976 =:103=2976 «8103-2995 #103-2995 103-2995 #103-2995 103-2995 #103-2995 
103-2995 #103-2995 103-2995 #103-2996 103-2996 #103-3002 103-3002 #103-3002 103-3002 #103-3002 
103-3002 #103-3003 103-3003 #103-3015 #103-3015 103-3015 #103-3015 103-3015 #103-3015 1035-3015 
#103-3015 103-3015 #103-3016 103-3016 #103-3052 103-3052 #103-3052 103-3052 #103-3082 105-3082 
#1053101 «#105-3101 =: 105-3101 -#105-3101 = 105-3101 «= #105-3101 = 105-3101 «64105-3101 =—105-3101 9105-3101 
105-3101 = 105-3101 -#105-3112 «= 105-3112) #10593112 «= 105-3112 105-3113) = 105-3115 #105-3121 «=#105-3121 
105-3121 #105-3121 «= 105-3121 = 105-3121) -#105-3121 = 105-3121 = 105-3121) #105-3124 «8105-31246 «=—-105- 31246 
#10723161 = 107-3141 #1073162 «= 107-3162 «109-3180 9 #109-3180 109-3180 #109-3180 109-3180 #109-3180 
109-3180 109-3180 #109-3180 109-3180 109-3180 #109-3200 109-3200 #111-3265 111-3265 #114-3312 
116-3312 #116"3312 «11623312 8116-3319 «= 114-3319) 116-3326 = 116-3326 «116-3326 §=—. 116-3526 116-3546 
116-3346 #118-3356 = 118-3356 «118-3356 «=. 118-3356 «118-3388 «= 118-3388 «120-3396 = 120-3396 §=—-# 120-3396 
120-3396 #120-3420 «120-3420 #122-3427 «=: 122-3427 = 122-3427 = 122-3427 «122-3451 =: 122-3451 124-3458 
124-3658 #124-3458 124-3458 8124-3482 124-3482 8126-3489 = 126-3489) #126-3489 =—-126-3489 126-3515 
126-3513 #132-3633 «132-3633 «132-3636 «=. 132-3656 =. 132-3636 §= 132-3636 «= 132-3636 «152-3637 = 11352 = 3637 
132-3637 132-3637 «= 132-3637 «8132-3638 = 132-363 132-3638 132-3638 #132-3639 132-3639 1352-36039 
132-3639 8132-7640 132-3640 132-3640 132-3640 8152-5648 132-3648 8134-3677 154-3677 #1345679 
134-3679 9134-3679 «= 134-3679 = 134-3679 =: 134-3679 «134-3080 «= 134-3480) 3=—- 134-3680) 3=—-: 134-3680 «#1 34-5681 
134-3681 134-3681 «= 134-3681 134-3682 «= 134-3682 «= 154-3682 «=: 124-3682 134-3685 = 134-5685 = 134-5085 
134-3683 8134-3685 134-3685 = 134-3685 = 134-3685 «= 134-3085 = 154-5685 134-3695 = 134-3695 156-5715 
136-3713 = 136-3713) «= 136-3715 136-3717 8136-3717 «136-3717 ~=—:136-3717 
MEGNTA #11-479 #11-479 #13-505 #13-505 86-2513 886-2513 9896-2717 96-2717 = 896-2730 =. #96 = 2730 
8101-2965 #101-2945 #103-3CB2 8103-3082 #105-3113 #105"3115 #107-3162 107-3162 #109-3200 #109-3200 
8111-3265) 11123265) 11693319 8116-3319 8116-3346 116-5546 118-3588 «118-3388 120-3420 9120-3420 
9122-3651 122-3451)  126"3482 81246-3482 8126-35513 8126-5513 8132-5648 8132-5648 8154-3695 154-5695 
174-3717 8136-3717 81356-3722 8136-3722 : 
MSGNTE 9116-3310 811623310 811623326 8116-3324 8118-3554 #1183354 120-3396 #1203396 122-3425) 122-5425 
9124-3456 1246-34656 126-3487 8126-5487 
MBHAPT 85-418 95-418 
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PA 
ef 2 SEQ 0115 


MACRO NAME 


MSHNAP 
MSINCR 


M$PUT 


REFERENCES 
#5-418 


#116-33246 
9118-3354 
#120-3396 
#124-3456 
#126-3487 
#132-3633 


#114-3307 
#122-34.25 
4134-5677 


#101-2952 


#118-3354 
4120-3420 
4124-3456 


#80-2281 
#98-2789 
#101-2905 
#109-3180 


#103-2971 
#114-3307 
9322-3425 
#134-3677 
#80-2250 


#101-2922 
#101=2932 


#105-3099 
#107-3136 
#109-3200 
#114-3310 


#122-3425 
9124-3456 
#126-3487 
#134-3677 


994-2663 
#105-3112 


#11-479 
#96-2730 
4105-3113 
#116-3346 
#126-3513 


#80-2255 


#101-2921 


47-428 
#96-2713 
#105-3099 
#114-3310 
#124-3456 


#80-2250 


#100-2830 
#101-2921 
#101-2922 
#101-2932 





#105-3099 
#107-3136 
#111-3222 
#114-3310 
#116-3324 
#118-3588 
#122-3425 
0124-3456 
#126-3487 
#134-3677 


94-2663 
105-3112 


126-3513 


#80-2255 
#80-2289 
#100-2825 
#101-2921 


#7-428 
#96-2715 
#105-3099 
#114-3310 
#124-3456 


#80-2250 


#100-2830 
#101-2921 
#101-2922 
#101-2932 


#7-428 
#14-560 


#111-3222 
#114-3310 
#116-3526 


9126-3489 
#134-3677 


494-2704 
#105-3126 


#13-505 

#100-2842 
#107-2162 
#118-3588 
#130-3557 


#80-2258 
#86-2505 
#100-2828 
#101-2922 


#11-466 
996-27, 
#107-3136 
#116-3524 
#126-3487 


#80-2255 


#101=2922 
#101-2932 


#7-428 


#111-3222 
4114-3310 
9116-3346 
#120-3394 
#122-3425 
#124-3456 
#126-3513 
#134-3677 


94-2704 
105-3124 


#80-2258 
#86-2505 
#100-2828 
#101-2922 


“11-466 
# 6-2721 
#107-3156 
#116-3324 
#126-3487 


#80-2255 
#80-2274 
#86-2505 
#86-2508 
#94-2664 
#100-2823 


#101-2922 
4101-2932 


#11-466 
#58-1588 
#80-2274 
486-2496 
994-2664 
996-2721 
#101-2886 
#101-2921 
9103-2996 
#105-3101 


#118-3354 
#120-3394 
#122-3425 
4124-3458 
#132-3622 
#136-3716 


#94-2706 


#13-507 

#101-2945 
#109-3200 
#120-3420 
#132-3648 


#80-2260 
#86-2506 
#100-2830 
#101-2932 


#13-489 


#132-3622 
#80 «2255 


#101-2922 
#101=2932 
#101-2932 


#11-466 


#105-3112 
#109-3172 
#111-3245 
#114-3319 
#118-3354 
#120-33594 
#122-3425 
4124-3482 
#132-3622 
4136-3716 


94-2706 


132-3648 
#80-2260 
#86-2506 
#100-2830 
#101-2952 


413-489 


#132-3622 
#80-2255 


#105-3107 


#60-1651 


#114-3307 
#116-3324 
#118-3354 
#120-3394 
#1223427 
4126-3487 
#132-3633 
#136-3717 


#103-2975 


#86-2515 

#101-2961 
#111-3245 
#122-3451 
#134-3693 


#80-2274 
#86-2509 
#101-2903 
#105-312 


#14-560 

#101-2893 
#111=3222 
#120-3394 
#132-3635 


#80-2258 
#30-2 281 
#86-2503 
#86-2509 
094-2666 
#100-2823 
#101-2905 
#101-2922 
#i01-2932 
#105-3101 


#11-466 


#122-3451 
4126-3487 
4132-3653 
#136-3717 


103-2975 


01-2961 
11-3245 
122-3451 
134-3695 


#8C-2274 
#86-2509 
#191-2905 
#105-3121 


#14-560 

#101-2893 
#111-3222 
#120-3594 
#1 32-3635 


#80-2258 
#80-2281 
#86-2503 
#86-2509 
#94-2666 
#100-2828 


ps et a 
! 


#101=2952 
#105=3101 


| 
7 
ae 


ne. ees ee ees 
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m$PuT1 


MSTLAB 


#105-3101 


#105- 3121 
#132-3636 
#134-3679 
#134-3685 
#103-3002 
#5-401 
#86-2496 
#103-2971 
#114-3307 
122-3425 
#134-3677 
#58-1588 


#100-2823 
#101-2904 
#101-2932 
103-3002 
#105-3112 
#107-3162 
0114-3319 
#120-3396 
#1264-3482 
#58-1588 
#80-2274 
#86-2503 
#96-2738 
#101-2905 
#103-3015 
#107-3162 
#120-3396 
#58-1588 


3 ie 3101 
0 


#105-3121 
4132-3636 


#114-3307 
#1223425 
#134-3677 


#109-3180 
#1203420 
58-1588 


#105- Ht 4 
#8 


#105-3121 
#132-3657 
#134-3680 


#103-3052 
47-428 
496-2713 
#105-3099 


#1143310 
#124-3456 


60-1650 
80-2250 


9100-2828 
#101-2905 
#101-2945 
#103-3016 


#101-2921 
#103-3052 
#109-3200 
#122-3427 
#60-1650 


#105- sig" 


#132-3637 
#134-3680 


#103-3052 
#7-428 


4 
496-2713 

#105-3099 
#114-3310 
#124-3456 


#60-1651 


#101-2922 
#103-3082 
#111-3245 
#122-3451 
#60-1650 


#105- 51 1 


#134-3681 


#11-466 
496-2721 
#107-3136 
#116-3324 
#126-3487 


60-1651 


#103-3052 
#105-3121 
#109-3200 


#124-3458 
60-1650 


#109-3180 


#134-3681 


#11-466 
496-2721 
#107-3136 
#116-3324 
#126-3487 


#60-1655 
#80-2258 


#100-2828 
#101-2945 
#105-3112 
#114-3319 
#124-3482 
#60-1651 


#109-3180 


#101-2932 
#1053101 
#109-3180 
#132-3639 
4134-3682 


#13-489 

#101-2886 
#109-3172 
#118-3354 
#132-3622 


60-1653 
80-2258 


#101-2921 

103-2995 
#103-5082 
#105-3124 
#111-3245 
#118-3356 
#1223451 


#80-2250 
484-2464 
494-2664 
#100-2830 
#1032975 
#105-3113 
#116-3326 
#126-3489 
60-1651 


#109-3180 


#94-2666 


#105-3101 
#109-3180 
#132-3639 
4134-3682 


413-489 

#101-2886 
#109-3172 
#118-3354 
#132-3622 


#64-1768 


#80-2255 
884-2475 


#105-3121 
#116-3346 
#126-3515 
#60-1053 


#109-3180 


#105-3101 
#109-3180 
#132-3640 
#134-3685 


#14-560 

#101-2893 
#111-3222 
#120-3594 
#132-3635 


64-1768 
80-2260 


898-2789 
#101-290% 
#101-292¢ 
103-2996 
#105-3101 
#107-3141 
#114-3312 
#118-3388 
#124-3458 


#80-2258 
484-2479 
994-2704 
#101-2903 
#103-2996 
#105-3124 
#118-3356 


60-1653 


#80-2255 


#101-2905 


#132-3640 
4134-3685 


» 14-560 

#101-2893 
#111-3222 
#120-3394 
#132-3635 


#74-2046 
#80-2274 

84-2475 
#86-2513 
#94-2704 


#80-2260 
484-2483 
#94-2706 
#101-2904 
#103-3002 
#107-3141 
#118-3388 


#64-1768 
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64-1768 #74-2946 74-2046 #80-2250 80-2250  #80-2255 80-2255  #80-2258 80-2258 #80-2260 
80-2260 #80-2274 80-2274  #80-2281 80-2281  #80-2289 80-2289 884-2437 84-2437 84-2437 
984-2651 884-2451 84-2451 884-2457 884-2457 84-245 984-2464 884-2464 84-2464 884-2475 
984-2475 84-247 984-2479 884-2479 84-2479 = 884-2483 84-2485 #86-2505 86-2503 #86-2506 
86-2506 #86-2509 86-2509  #86-25%3 86-2513 894-2648 94-2648 894-2663 94-2663  #94-2664 
94-2664  #94-2666 94-2666 894-2704 94-2704  #94-2706 94-2706 #96-2738 96-2738  #96-2759 
96-2739 #98-2788  #98-2788 98-2788  #98-2789 98-2789 #100-2823 100-2825 #100-2828 100-2828 
#100-2830 100-2830 #101-2901 101-2901 #101-2903 101-2903 #101-2904 101-2904 #101-2905 101-2905 
#101-2906 101-2906) #101-2921 §=—-101-2921 101-2922 = 101-2922 94101-2932 101-2952 101-2965 101-2945 
#103-2975 =: 103-2975 -#103-2995 #103-2995 103-2995 #103-2996 103-2996 #103-300 103-3002 #105-3015 
#103-3015 = 103-3015 #103-3016 = 103-3016 9 #103-3052 «= 103-3052 4103-3082 103-3082 #105-3101 105-3101 
#1053112 «= 105-3112 #1053113 = 105-3113) #1053121 «= 105-3121 105-3124 = 105-3124 = #107"3141 = 107-3141 
#107-3162 107-3162 98109-3180 «109-3180 #109-3200 =—109-3200 111-3265 = 111-3245 114-3512 =: 114"3512 
#1143319 114-3319 116-3326 «= 116-3326 8116-3346 «= 116-3346 118-3356 §=— 118-3356 «118-3388 =: 118-3588 
#120-3396 = 120-3396 «#1203420 §=—- 120-3420 122-3427 «= 122-3427 «8122-3451 = 122-3451 126-3458 = 124" 35458 
9124-3482 124-3482 8126-3489 126-3489 #126-3513 126-3515 
MSWORD #5-418 45-418 99-448 99-448 #9-448 99-448 W9-448 #9-448 89-448 49-468 
49-448 #60-1650 #60-1650 #60-1650 960-1650 484-2437 84-2437 884-2437 = #B4-2437 = #842451 
984-2451 = #B4=2451 9 #B4-2451 9984-2457 9=— #842457 = WBA 2457 = #B4=2457 = HBA 2464 BGR 2464 = #842464 
984-2664 = #B4-2475 «= #B4=2475) —#B4=2475 —#B4=2475 ——WBG=2479 = #B4=24679) = B84 -2679) = 84-2479 = #982788 
498-2788  #98-2788 #98-2788 #103-2995 #103-2995 #103-2995 #103-2995 #103-3015 #103-3015 #103-3015 
#1033015 8114-3312 8116-3326 8118-3356 120-3396 8122-3427 8124-3458 8126-35489 9 #152-3636 6#1352-3656 
0132-3637 8132-3637 132-3638 8132-3638 «122-3639 «132-5639 152-3640 152-3640 41346-3679 8134-3679 
#134-3680 8134-3680 8134-3681 4134-3681 8134-3682 4134-3652 8134-3685 4154-3683 #1543685 9 #134-3685 
136-3717 #136-3717 
POINTE 5-408 
POP 434-993 54-1547 54-1548 64-1769 64-1777 72-1983 72-1984 80-2301 80-2302 84-2484 
84-2485 84-2486 24-2487 86-2511 86-2512 90-2577 90-2578 92-2615 92-2616 98-2793 
5 a 5 mat 100-2831 100-2832 101-2939 101-2940 101-2941 101-2942 101-2945 101-2944 
- lw -= 
PRINTB #80-2274 86-2503 86-2506 86-2509 #98-2789 
PRINTF 100-2823 100-2828 100-2830 105-3121 109-3180 
PRINTS #101-2903 #101-2905 #101-2921 #101-2922 #101-2932 
PRINTX 80-2250 80-2255 80-2258 80-2260 80-2281 80-2289 
PUSH #34-989 54-1540 54-1541 64-1763 64-1767 72-1972 72-1973 80-2228 80-7229 84-242! 
84-2422 84-2423 84-2424 86-2497 86-2498 90-2555 90-2554 92-2593 92-2594 98-276/ 
98-2768 98-2769 100-2816 100-2817 101-2894 101-2895 101-2896 101-2897 101-2898 101-2899 
109-3174 109-3175 
READE F #103-2975 
RFLAGS #103-3052 
SETPRI 94-2665 
SETVEC 94-2664 94-2666 105-3101 
vc #5-374 5-375 
SWAPIN #34-1002 60-1618 60-1639 
SWAPOW M34-10'© = 862-1695 
TSTID #46°1366 9 -#114"3311) 116-3325) 4118-3355 120-3395 122-3426 8126-35457 ff 7488 
TUREAD #42-1262 118-3364 «122-3437 = 126-5499 
TURTRY #40-1195 118-3363 9118-3364 120-3406 122-3437 124-3468 126-5499 
TUSEEK #38-1143 116-3332 
TUSELF 944-1331 114-3314 
TUWRIT 936-1048 «118-3363 9120-3406 4124-3468 : 
MFER 9116-3312 #116-3326 8118-3356 #120-3396 122-3427 = #124"5458 126-489 
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